Задание:
Дан двумерный массив, найти количество элементов массива меньше 5
Решение:
Const n=10; //кол-во элементовvar i,j,t: byte; {описание двумерного массива}tarray: array[1… n,1… n] of integer; //например такbegint: =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.
Знаете другой ответ?