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

Question

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

Comments

на английском

---

Спасибо огромное:)

---

ясное дело что на английском

---

языков программирования много так то

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;