{Задать массив из 10 случайных чисел в диапазоне [32,96].
Вывести минимальное число массива и его индекс.}

Const n=10;
var a:array[1..n] of integer;
i,min,k:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(65)+32;
write(a[i]:4);
end;
writeln;
min:=a[1];
k:=1;
for i:=2 to n do
if a[i]writeln(min=a[,k,]=,min);
end.

Пример:
50 55 72 95 57 87 64 92 42 49
min=a[9]=42

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!