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

Question

Информатика

Анастасий

10 декабря, 10:55

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

+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.