Меню сайта

Задача №57

Найтиобщее кол-во нулевых элементов в массивах Х(м) У(к).

uses crt-

vari,m,k,num,numm,nn:integer-

x:array[1..10000]of integer-

y:array[1..10000]of integer-

begin-

clrscr-

writeln(‘Введите размер массива x(m)’)-

readln(m)-

writeln(‘Введите размер массива y(k)’)-

readln(k)-

writeln(‘Введите элементы массива x(m)’)-

FOR i := 1 TO m do

begin

readln(x[i])-

end-

writeln(‘Введите элементы массива y(k)’)-

FOR i := 1 TO k do

begin

readln(y[i])-

end-

FOR i := 1 TO m do

begin

IF x[i] = 0 THENnum := num + 1-

end-

FOR i := 1 TO k do

begin

IF y[i] = 0 THENnumm := numm + 1-

end-

if num&gt-numm thennn:=numm else nn:=num-

writeln(‘Общее количество нулевых элементов в двухмассиваx ‘, nn)-

end.

Категория: Массивы | Дата: 08.12.12

Меню раздела
Блок