Открыть лаунчер, нажать на edit profile а где edit profile находится

108

215

Посмотреть ответы 2

Ответы на вопрос:

egortupi

Информатика

4,4(26 оценок)

Внизу лаунчера, слева

oksana1410

Информатика

4,8(25 оценок)

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 (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.