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

Составьте программу, которая заполняет массив a [1...10] случайными целыми числами в диапазоне от 1 до 20 и находит минимальный элемент массива и его индекс

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

Var
a:array[1..100] of integer;
min, minz, i:integer;
Begin
randomize;
minz:=30;
for i:=1 to 10 do a[i]:=random(20)+1;
for i:=1 to 10 do 
if minz>a[i] then begin minz:=a[i]; min:=i; End;
for i:=1 to 10 do Write(a[i], );
Writeln();
Writeln(minz, ,min);
End.