Дан массив из n целых чисел а₁,а₂ⁿ.вам нужно проверить,есть ли в этом массиве три числа сумма которых равна нулю. можете сделать программу

// pascalabc.net 3.3, сборка 1590 от 03.12.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('n=');   var a: =arrrandom(n,-50,50); a.println;   var m: =n-1;   var found: =false;   for var i: =0 to m do begin       for var j: =0 to m do           if i=j then continue           else begin               for var k: =0 to m do                   if (k=i) or (k=j) then continue                   else                       if a[i]+a[j]+a[k]=0 then begin                           println('решение: ',a[i],a[j],a[k]);                           found: =true;                           break                           end;               if found then break               end;       if found then break       end;   if not found then writeln('нет нужной тройки чисел') end. примеры n= 13 -25 -29 41 -19 -9 50 -23 36 33 23 48 -6 -5 решение: -25 -23 48 n= 8 -33 -23 -3 -5 -5 -20 -22 34 нет нужной тройки чисел

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 (i< > j) and (j< > k) and (i< > k) 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.

Клинопись развилась из пиктографии — примитивного рисуночного письма, содержавшего свыше полутора тысяч знаков-рисунков. каждый клинописный знак — их насчитывалось около четырех сотен — мог в зависимости от контекста читаться и как слог, и как1 целое слово. для людей, знавших язык, выбор того или иного чтения знака не составлял особого труда, т. к. лишь 70 — 80 знаков были наиболее употребительными. кстати, в них почти невозможно было узнать исходный знак-рисунок.