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.
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.