Uses crt;
const n=12;
var m:array[1..n] of integer;
k,s,i:integer;
begin
randomize;
for i:=1 to n do
begin
m[i]:=random(9)+1;
writeln(m[i]);
if m[i] mod 2<>0 then begin inc(k); s:=s+m[i]; end;
end;
writeln;
writeln(k);
writeln(s);
end.
А), д),е) истинно
Остальные - ложь
Начало
Встал.
Почистил зубы.
Съел завтрак.
Оделся.
Вышел.
Конец.