Власть, каска, слон, пол, тело, еда, эра( больше никак).
1) Выбрать подходящий цвет
2) Купить краску
3) Купить кисточку (если нет)
4) Прочитать инструкцию на краске (чтобы узнать сколько будет сохнуть краска)
5) Вскрыть банку с краской
6) Вскрыть кисточку
7) Покрасить забор
8) Закрыть банку с краской
9) Дождаться полного высыхания краски
10) Повторить пункты 5-9
Не носится по кабинету, а то снесешь комп и заставят платить)
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.