Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>
Ответ:https://frillycarelessdatamining.crosser23.repl.run/
Объяснение:
Var
A:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(A);
A:=A mod 12;
Case A of
0,1,2:WriteLn('Зима');
3,4,5:WriteLn('Весна');
6,7,8:WriteLn('Лето');
9,10,11:WriteLn('Осень')
End
End.
3 л: 8 л:
1. 3 0 (налить 3л)
2. 3 3 (перелить из 3л в 8л и налить в 3л.)
3. 0 6 (перелить из 3л в 8л)
4. 3 6 (налить 3л)
5. 1 8 (перелить из 3л в 8л)
6. 1 0 (вылить 8 л)
7. 0 1 (перелить из 3л в 8л)
8. 3 1 (налить 3л)
9. 0 4 (перелить из 3л в 8л)
10. 3 4 (налить 3л)
11. 0 7 (перелить из 3л в 8л)