Fateevsa9
?>

не шарю Информатика 8 класса

Информатика

Ответы

Khiryanov
 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.
Ka2ffka141
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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

не шарю Информатика 8 класса
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

asemchenko
djikia88
krikatiy
nord248
Михайлов
Khlistova1488
Валуева
gorbelena1971
evolkova-73
malgoblin2663
Zeegofer
Анна егорович526
martinson
a1rwalk3r
denisovatat7