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

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

Формат входных данных

В первой строке входного файла содержится одно целое число N (1 ≤ N ≤ 2000). Во второй строке находятся N целых чисел a1, a2, ..., aN (- 1000 ≤ ai ≤ 1000) - элементы массива.

Формат выходных данных

В единственной строке выходного файла выведите одно слово "YES", если в этом массиве есть три числа сумма которых равна нулю. Иначе, выведите "NO".

c + + надо решать!

Question

Информатика

Вовуша

21 июня, 10:21

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

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

Формат входных данных

В первой строке входного файла содержится одно целое число N (1 ≤ N ≤ 2000). Во второй строке находятся N целых чисел a1, a2, ..., aN (- 1000 ≤ ai ≤ 1000) - элементы массива.

Формат выходных данных

В единственной строке выходного файла выведите одно слово "YES", если в этом массиве есть три числа сумма которых равна нулю. Иначе, выведите "NO".

c + + надо решать!

+2

Ответы (1)

Знаете ответ?

Федан · Answer 1

Program esep;

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

input, output:text;

a:array[1 ... 100] of integer;

flag:boolean;

begin flag:=false;

Assign (Input,'d. in') ;

reset (input) ;

readln (input, n) ;

assign (output, 'd. out') ;

rewrite (output) ;

writeln ('Input elements') ;

readln (n) ;

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 (output,'Yes') ;

flag:=true;

halt;

end;

if flag=false then writeln (output,'No') ;

close (input) ;

close (output) ;

end.