Составить программу поиска в целочисленном массиве из 15 элементов двух рядом стоящих элементов, сумма которых больше 10, если таких элементов нет, вывести "NO".В паскале.
Составить программу поиска в целочисленном массиве из 15 элементов двух рядом стоящих элементов, сумма которых больше 10, если таких элементов нет, вывести "NO".
В паскале.
Гость
Ответ(ы) на вопрос:
Гость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 (i10 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.
Не нашли ответ?
Похожие вопросы