Question

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

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]<min then begin min:=mas[i]; min1:=i; end;
Writeln('Минимальное является:  ',min,' его номер в массиве: ',min1);
End;