Задать вопрос
30 января, 07:51

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

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

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

+1
Ответы (1)
  1. 30 января, 08:15
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задача D Три числа Дан массив из N целых чисел а 1, а2, ..., an. Вам нужно проверить, есть ли в этом массиве три числа сумма которых равна ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы