Program mas;
Type mass=array[1..10] of integer;
var m: mass;
i,a: integer;
begin
for i:=1 to 10 do begin
read(m[i]);
end;
a:=m[1];
for i:=2 to 10 do begin
if aend;
writeln(a);
end.
Вот программа с вводом данных в массив и нахождение большего элемента в нём