Паскаль: Дана матрица В (12, 10). Подсчитать сколько элементов в матрице больше максимального элемента первой строки.

Question

******************* Ученик (67), на голосовании 11 лет назад

Answer 1

max:=B[1,1]; n:=0;
for j:=1 to 10 do if B[1,j]>max then max:=B[i,j];

for i:=2 to 12 do
for j:=1 to 10 do
if B[i,j]>max then inc(n);

writeln(n);