Перечислите клавиши перемещения по тексту

Question

Информатика: Перечислите клавиши перемещения по тексту

lАндрей · Accepted Answer

program max_elementarray ;

var i, max : integer ;

a : array [1..10] of integer;

begin

for i : = 1 to 10 do

begin

readln(a[i]);

end;

max : = a[1];

for i : = 2 to 10 do

if a[i]> max then max : = a[i];

writeln('max element of array = ',max) ;

readln ;

end.