Дан массив A(N, M) и число z. Определить сколько раз среди элементов четных строк массива встречается число z с заданными значениями.
Условие задачи:Дан массив A(N, M) и число z. Определить сколько раз среди элементов четных строк массива встречается число z с заданными значениями.
program PascalGuru; uses crt; var A:array[1..50,1..50] of integer; {переменная массива} i,j,m,n:integer; {переменные для циклов} z,count:integer;
begin write('N= '); readln (n); {считываем размер массива} write('M= '); readln (m); {считываем размер массива}
writeln ('Vvedite elementy massiva A: '); for i:=1 to n do for j:=1 to m do begin write ('A[',i,',',j,']='); readln (A[i,j]); end; {считываем элементы массива}
clrscr; write ('Vot vvedennyi vami massiv A: '); for i:=1 to n do begin writeln; for j:=1 to m do write (A[i,j]:4,' '); end; {выводим массив на экран}
writeln;writeln; write('z: '); readln(z); {считываем значение "z"}
count:=0; {обнуляем кол-во} for i:=1 to n do {проход по строкам} begin if not odd(i) then {если строка НЕчётная} for j:=1 to m do {идём по её элементам} if A[i,j]=z then inc(count); {если есть Z - кол-во увеличиваем на +1}
end;
writeln('Kol-vo: ',count); {выводим кол-во на экран}