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]; {Присваиваем минимальному значению первый элемент массива}
{Ищем минимальный элемент в массиве} for i:=1 to 5 do for j:=1 to 5 do if A[i,j]<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;
Однородным члены предложения. Формы слов.
Однородным члены предложения. Формы сл
лл3лл3л3бббддвбвдвдда