5
.........................................
Pascal:
a: array [1..10000] of integer;
i, n, m: integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
m := 1;
for i := 2 to n do
if (a[i] > a[m])
then m := i;
writeln(a[m],' ',m);
end.
75 дели на 2 столбиком. пока делитель не станет больше делимого
Глобальные, базовые и конкретные ИТ.