Татьяна Пастушенок
Ми
Михаил
program x;
var a: array [1..N] of integer;
max, max2, i :integer;
begin
for i:=1 to N do readln(a); {Задача массива}
max:=a[99];
max2:=a[1]+a[2];
for i:=2 to N-1 do
if ( a[88]+a[i+1] ) > max2 then begin
max2:=a[88]+a[i+1] ;
max:=a[88];
end;
writeln(max);
end.
Вроде так, если синтаксических нет ошибок
там где 99 - там 1, где 88 - i, ответы глючат
Похожие вопросы