Информатика, опубликовано 2018-08-22 23:57:31 by Гость
Определить есть ли пара соседних элементов с суммой равной заданному числу. Составить на Паскале программу (массивы)
Ответ оставил Гость
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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на