Дан двумерный массив, найти количество элементов массива меньше 5

1

Ответы и объяснения

  • jd42
  • середнячок
2013-10-21T08:37:26+00:00
Const 
n=10;//кол-во элементов

var 
i,j,t:byte;
{описание двумерного массива}
tarray:array[1..n,1..n] of integer;//например так

begin
t:=0;
{тут ввод двумерного массива}
for i:=1 to n do
 for j:=1 to n do
  if tarray[i,j] > 5 then t:=t+1;
writeln('В массиве ', t, ' элементов >5');
end.