Найти среди 40 чисел минимальный элемент и его порядковый номер? 10 человек сделали...

Question

Найти среди 40 чисел минимальный элемент и его порядковый номер?

10 человек сделали вложение в банк, Найти сред вложение?

Answer 1

uses crt;
var a:array[1..40] of integer;
i,min,n:integer;
begin
writeln('Исходный массив: ');
for i:=1 to 40 do begin
a[i]:=random(99-1+1)+1;
write(a[i]:3);
end;
writeln;
min:=100;
for i:=1 to 40 do begin
if a[i] end;
writeln('Минимальный элемент равен ',min,', его порядковый номер - ',n);
end.

 

 

Что значит сред вложение мне непонятно, поэтому не сделал вторую.