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

vaporen vaporen    3   30.07.2019 02:00    0

Ответы
yakormnevzad yakormnevzad  27.09.2020 17:28
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 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика