Найти среди 40 чисел минимальный элемент и его порядковый номер? 10 человек сделали вложение в банк, Найти сред вложение?
Найти среди 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]
Не нашли ответ?
Похожие вопросы