Program p1;
var a: array [1..100] of integer;
i, n, k, min: integer;
begin
writeln ('введите размер'); read (n);
randomize;
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i], ' ')
end;
min:=a[1];
k:=1;
for i:=1 to n do
if a[i] min:= a[i];
k:= i
end;
writeln();
writeln('min = ', min);
writeln('его номер = ', k);
end.
write(a[i]:a)
Что здесь подразумевалось?
Program p1;
var a: array [1..100] of integer;
i,n,k, min: integer;
begin
writeln ('введите размер'); read (n);
randomize;
for i:=1 to n do
begin
a[i]:=random (50);
write(a[i]:a)
end;
min:=a[1];
k:=1;
for i:=1 to n do
if a[i]<min then begin
min:= a[i];
k:= i
end;
writeln('min =',min);
writeln('его номер'='k')
end.