АС
Анатолий Самойлов
Delphi7. Двухмерные массивы
Для матрицы Х (5,5) определить и напечатать количество элементов, которые удовлетворяют условию 5
Для матрицы Х (5,5) определить и напечатать количество элементов, которые удовлетворяют условию 5
function Fuck(m: array of Integer); m - Матрица X
var
x, y, c: Integer;
begin
c:=0;
for i:=0 to High(m) do
for j:=0 to High(m) do
if (тут твоё условие, например проверка равно ли пяти: m[i, j]=5) then c:=c+1;
ShowMessage(inttostr(c));
end