Var a:array[1..20] of integer;
i,k:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if not odd(a[i]) then k+=1;
end;
writeln(k);
<span>end.</span>
1.в конверте есть письмо
2.нет приглашения, есть письмо
Var <имя_массива>: array [(мин_знач_индекса)..(макс_знач_индекса)] of тип_элементов;
Например:
var mas: array [1..10] of integer; - массив mas с 10 пронумерованными целочисленным значениями.
2 в степ 8 = 256, т.е 8 бит могут закодировать 256 значений
числа неотрицательные, значит вмещаемый диапазон 0-255
ответ 4) 255
ОБЬЕСНЯЮ, НАРИСУЙ ОКНО, В ОКНЕ ДЕРЕВО С БУЛИНКАМИ И ЦЫФРАМИ, КАК ЭТО ЗДЕЛАЕШ РАЗКРАСИТЬ МОЖНО В ЯРКИЕ ЦВЕТА.....