Задача на тему цикл с параметром Паскаль. Определить среди 10 чисел какое из них…

Program P; Var n, i: Integer; max, iMax: Integer; Begin Write ('Enter 10 numbers '); for i: =1 to 10 do Begin Read (n); if i=1 then Begin max: =n; iMax: =i; End else if n > max then Begin max: =n; iMax: =i; End; End; WriteLn ('Max=', max); WriteLn ('index=', iMax); ReadLn; End.