Консультация № 179920
12.09.2010, 21:46
0.00 руб.
0 1 1
Уважаемые эксперты , прошу вас записать следующую программу в псевдокоде или блок схеме :
program prog1;

const N=10;

var P:byte;
i,C1,C2:integer;
B:array [1..N] of integer;

begin
randomize;
C1:=0;
C2:=0;
for i:=1 to 10 do
begin
B[i]:=random(100);
write(B[i],' ');
end;
i:=1;
while i<=N/2 do
begin
C1:=C1+B[i];
i:=i+1;
end;
while i<=N do
begin
C2:=C2+B[i];
i:=i+1;
end;
writeln;
writeln('C1=',C1);
writeln('C2=',C2);
if C1>C2 then
P:=1
else
P:=2;
write(P);
end.

Обсуждение

давно
Профессор
230118
3054
13.09.2010, 18:59
общий
это ответ
Здравствуйте, Roland Deschain.

Псевдокод допускает разные варианты, я приведу на "Ершоле"

алг prog1;
нач
C1 = 0, C2 = 0
для i от 1 до n
нц
B[i]=случ(100);
вывод(B[i],' ');
кц
i=1
пока i<=N/2
нц
C1=C1+B[i]
i=i+1
кц
пока i<=N
нц
C2=C2+B[i]
i=i+1
кц
вывод('C1=',C1)
вывод('C2=',C2)
еслиC1>C2 то P=1 иначе P=2
вывод(P)
кон
Форма ответа