Составить программу поиска в целочисленном массиве из 15 элементов двух рядом стоящих...

Question

Составить программу поиска в целочисленном массиве из 15 элементов двух рядом стоящих элементов, сумма которых больше 10, если таких элементов нет, вывести "NO".
В паскале.

Answer 1

Const n=15;
var
a: array [1..n] of integer;
i:integer;
p:boolean;
begin
  p:=true;
  for i:= 1 to n do
  begin
    write('Введите A[',i,']: ');
    readln(a[i]);
  end;
  i:=1;
  while p and (i  begin
    if a[i]+a[i+1]>10 then
      begin
        p:=false;
        writeln;
        writeln('(A[',i,']=',a[i],') + ((A[',i+1,']=',a[i+1],') > 10');
      end;
    inc(i);
  end;
  writeln;
  if p then writeln('NO');
end.