64

Задача D Три числаДан массив из N целыхЗадача D Три числаДанмассив…

alkdir 10 марта 2023

Задача D Три числаДан массив из N целыхЗадача D Три числаДанмассив из N целых чисел а 1, а 2, … , an. Вам нужнопроверить, есть ли в этом массиве три числа сумма которых равна нулю. Формат входныхданныхВ первой строкевходного файла содержится одно целое число N (1 ≤ N ≤ 200). Во второйстроке находятся N целых чисел a1, a2, … , aN (- 1000 ≤ ai ≤ 1000) — элементымассива. Формат выходныхданныхВ единственнойстроке выходного файла выведите одно слово «YES», если в этом массиве есть три числа сумма которых равнанулю. Иначе, выведите «NO» .

категория: информатика

40

uses crt; vari,j,k,n,sum: integer; a: array[1… 100] ofinteger; flag: boolean; beginflag: =false; writeln ('Input N'); read (n); writeln ('Inputelements'); for i: =1 to n doread (a[i]); for i: =1 to n dofor j: =1 to n dofor k: =1 to n doif (i<>j) and (j<>k) and (i<>k) thenif a[i]+a[j]+a[k]=0thenf flag=false thenwriteln ('No'); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

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