Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Определить есть ли пара соседних элементов с суммой равной заданному числу. Составить на Паскале программу (массивы)

Ответ оставил Гость

Const 
n=10; 
var a:array[1..n] of integer; 
i,k,s:integer; 
begin 
k:=0; 
writeln(Введите число); 
read(s); 
writeln(Введите элементы массива); 
for i:=1 to n do read(a[i]); 
for i:=2 to n do if a[i]+a[i-1]=s then k:=k+1; 
if k>0 then writeln(Есть) else writeln(Нету); 
end.1