Найти есть ли пара примыкающих частей с суммой равной данному числу.

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

Задать свой вопрос
1 ответ
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 kgt;0 then writeln('Есть') else writeln('Нету'); 
end.1 
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт