,, ввести с клавиатуры последовательность из n. Целых чисел и найти максимальное…

Program ArrayMax; Const n=10; Var a: Array [1… n] of Integer; i, b: Integer; BeginWriteLn ('Введите ', n, ' целых чисел через пробел и нажмите Enter'); For i: =1 To n DoRead (a[i]); b: =a[2]; For i: =1 To n DoIf (i Mod 2=0) And (a[i] > b) Thenb: =a[i]; Write ('Результат: ', b); End.