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>
Задание 1. Будет под цифрой 1..
Задание 2. Рекурсивный<span>
Задание 3.Точно не скажу ,но скорее всего "закрасить".
Задание 4. "7"
Задание 8. "1"</span>
колонки, на бупаге печатаешь с помощью принтера смотря в дисплей.
Ответ:
информация это когда о чем-то дают какую-нибудь информацию.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadAllText('input.txt').ToIntegers;
a.Println
end.
<h2 /><h2>Во втором вложении файл input.txt</h2>