Дан двумерный массив размером найти мин. элемент найти количество элементов равных этому во всем масиве

Question

Информатика

Нилыч

10 октября, 09:05

Дан двумерный массив размером найти мин. элемент найти количество элементов равных этому во всем масиве

+1

Ответы (1)

Знаете ответ?

Ларуся · Answer 1

Var i, j, k, min:integer;

a:array[1 ... 10,1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do

for j:=1 to 10 do

a[i, j]:=random (15) + 1;

min:=a[1,1];

for i:=1 to 10 do

for j:=1 to 10 do

if a[i, j]
for i:=1 to 10 do

for j:=1 to 10 do

if min=a[i, j] then k:=k+1;

for i:=1 to 10 do

begin

for j:=1 to 10 do write (a[i, j]:5) ;

writeln;

end;

writeln ('Минимальный элемент=', min) ;

writeln ('Кол-во равных элементов=', k) ;

end.