Задача D Три числа Дан массив из N целых чисел а 1, а2, …, an. Вам нужно проверить, есть ли в этом массиве три числа сумма которых равна нулю.

Вопрос от пользователя: Анюта

Задача D Три числа

Дан массив из N целых чисел а 1, а2, …, an. Вам нужно проверить, есть

ли в этом массиве три числа сумма которых равна нулю.

Ответ: Эва

uses crt;

var i, j, k, n, sum:integer;

a:array[1 … 100] of integer;

flag:boolean;

begin

flag:=false;

writeln (‘Input N’);

read (n);

writeln (‘Input elements’);

for i:=1 to n do

read (a[i]);

for i:=1 to n do

for j:=1 to n do

for k:=1 to n do

if (ij) and (jk) and (ik) then

if a[i]+a[j]+a[k]=0 then

begin

writeln (‘Yes’);

flag:=true;

halt;

end;

if flag=false then

writeln (‘No’);

end.