Борис залез на чердак раньше олега,иван позже олега,петр раньше бориса,а семен позже ивана ,кто попал - id316613620201004 от iuliazhdanovaЮлька 04.10.2020 00:27

Question

Информатика: Борис залез на чердак раньше олега,иван позже олега,петр раньше бориса,а семен позже ивана ,кто попал на чердак раньше всех,кто позже всех запиши имена входивших по порядку

iuliazhdanovaЮлька · Accepted Answer

1)
Program n1;
const n=5;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do if( i mod 2=0) then a[i]:=0
else a[i]:=1;
for i:=1 to n do writeln(a[i]);
end.
2)
Program n2;
const n=25;
var a: array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(5)+1;
if a[i]<3 then k:=k+1;
end;
writeln(k);
end.
3)
Program n3;
const n=5;
var a: array [1..n] of integer;
i,S: integer;
begin
S:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]<0) then S:=S+a[i];
writeln(S);
end.

MOGZ ответил