А где ошибки их нет и что за ошибки?
НЕПРАВИЛЬНО
ПОЛУЧАЕТСЯ,ТАК:
Понедельник - пошли Петя с Таней. Вторник - Петя и Вася. Среда - Вася и Таня. То есть ответ: ПС
(по условию Вася во вторник не может)
(по условию Таня в среду не может)
ПРАВИЛЬНО
---------------понедельник--вторник--среда
ПЕТЯ не ходил 1й фильм 2й фильм
ВАСЯ 1й фильм не ходил 2й фильм
ТАНЯ 2й фильм 1й фильм не ходил
Ответ ВС
1.
Const N = 10;
Var i,S:integer; m:array [1..N] of integer;
Begin
randomize; S:=0;
for i:=1 to N do begin
m[i]:= random(201)-100;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 = 0 then
S:=S+m[i];
writeln('Summa = ',S);
readln;
end.
2.
Const N = 100;
Var i,p:integer; B:array [1..N] of integer;
Begin
randomize; p:=0;
for i:=1 to N do begin
B[i]:= random(201)-100;
writeln(B[i]);
end;
for i:=1 to N do
if B[i] mod 3 = 0 then
p:=p*B[i];
writeln('Proiz = ',p);
readln;
end.<span>
</span>
число это 12 и деляться на и в конце 2