Дан массив из N

целых чисел а1, а2, ..., an. Проверить, есть ли в этом массиве три числа, сумма которых равна нулю.

Question

Информатика

Тимофей

5 января, 21:04

Дан массив из N

целых чисел а1, а2, ..., an. Проверить, есть ли в этом массиве три числа, сумма которых равна нулю.

+4

Ответы (1)

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

Стенюша · Answer 1

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.

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

Дан массив из N

целых чисел а1, а2, ..., an. Проверить, есть ли в этом массиве три числа, сумма которых равна нулю.