Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

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

Ответ оставил Гость

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.

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