Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи:

Дан массив A(N, M) и число z. Определить сколько раз среди элементов четных строк массива встречается число z с заданными значениями.

Просмотров: 378
Объяснение: +
Отзывов: 0

РЕШЕНИЕ:

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); {выводим кол-во на экран} readln; end.
нажми на эту область и скопируй решение


	© 2008 - 2012 Pascal, Паскаль, Турбо Паскаль, Turbo pascal.