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

1
Комментарий удален
на английском
Спасибо огромное:)
ясное дело что на английском
языков программирования много так то

Ответы и объяснения

2014-01-31T13:54:16+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
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]<min then begin min:=mas[i]; min1:=i; end;
Writeln('Минимальное является:  ',min,' его номер в массиве: ',min1);
End;