Составьте программу вычисления в массиве B (N) минимального элемента и его номера

Question

Информатика

Исак

23 июня, 05:07

Составьте программу вычисления в массиве B (N) минимального элемента и его номера

+1

Ответы (1)

Знаете ответ на вопрос?

Тертий · Answer 1

Var mas:array [1 ... 20] of integer;

i, min, min1:integer;

Begin

write ('Из чисел ') ;

for i:=1 to 20 do begin

mas[i]:=random (50) ;

write (mas[i],' ') ;

end;

writeln;

min:=mas[1];

for i:=1 to 20 do

if mas[i]
Writeln ('Минимальное является: ', min,' его номер в массиве: ', min1) ;

End;