Найти номер максимального и минимального из введённых с клавиатуры 10 элементов
Паскаль (массивы)

Var 
a : array [1..10] of integer;
i, max, min:integer;
Begin
min:=999999999;
max:=-999999999;
for i:=1 to 10 do
begin
readln (a[i]);
if a[i]gt;max then max:=i;
if a[i]lt;min then min:=i;
end;
writeln(max index=, max);
writeln(min index=, min);
end.