как сделать минимальное число? var        
q,a,z:integer;
t: array [1..10] of integer;
begin
for a:=1 to 10 do
begin
write(‘введите число ‘, a);
t[a]:=random(175)+182;
writeln(t[a]:4);
end;
a:=t[1]; z:=1;
for a:=2 to 10 do
begin
if t[a]>q then
begin
q:=t[a];
z:=a;
end;
end;
write(‘самое большое число под номером’,z,’это число’,q);
end.

  • var       
    q,a,z:integer;
    t: array [1..10] of integer;
    begin
      for a := 1 to 10 do
      begin
        t[a] := random(175)+182;
        writeln(t[a]:4);
      end;
      q := t[1];
      z := 1;
      for a:= 2 to 10 do
      begin
        if t[a]>q then
        begin
          q := t[a];
          z := a;
        end;
      end;
      write(‘самое большое число под номером ‘,z,’ это число ‘,q);
    end.