Сколько раз в матрице встречается заданное число
Задача
В двумерном массиве целых чисел определить, сколько раз в нем встречается элемент со значением X.
Решение
const m = 10; n = 5; var arr: array[1..n,1..m] of integer; x: integer; i,j,k: byte; begin randomize; writeln('Random matrix:'); for i:=1 to n do begin for j:=1 to m do begin arr[i,j] := -10 + random(21); // -10..10 write(arr[i,j]:4) end; writeln end; write('Investigated the number: '); readln(x); k := 0; for i:=1 to n do for j:=1 to m do if arr[i,j] = x then k := k + 1; writeln('The number is found in the array ', k, ' times'); readln; end.