Дан двумерный массив целых чисел. Найти сколько раз встречается в каждой

КОД в Turbo Pascal

USES CRT;
VAR A:array[1..5,1..5] of integer;
i,j,min,s:integer;
BEGIN
CLRSCR;
Randomize;
наполняем массив случайными числами от 0 до 10
for i:=1 to 5 do
for j:=1 to 5 do
A[i,j]:=random(10);

Выводим массив на экран
  for i:=1 to 5 do
  begin
  for j:=1 to 5 do
Write(A[i,j]:2, ' ');
  Writeln;
  end;

min:=A[1,1]; Присваиваем наименьшему значению 1-ый элемент массива

Разыскиваем малый элемент в массиве
for i:=1 to 5 do
for j:=1 to 5 do
   if A[i,j]lt;min then min:=A[i,j];

Writeln('Минимальный элемент в данном массиве = ',min);

Обнуляем счетчик
s:=0;

Считаем сколько малых частей в каждой строке и выводим на экран

for i:=1 to 5 do
begin
  for j:=1 to 5 do
   if A[i,j]=min then s:=s+1;
  Writeln('В ',i,' строке малый элемент встечается ',s,' раз');   s:=0;
end;

READLN;
END.

О проекте

Дан двумерный массив целых чисел. Найти сколько раз встречается в каждой

Добро пожаловать!