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

Question

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

Answer 1

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.

Comments

для лучшего понимания не стал сваливать всё в один цикл. minz - минимальное значение, min - индекс