//PascalABC.NET
const
n = 10; // Задаем размер массива
var
a: array [1..n] of integer;
i,kol:integer;
begin
for i:=1 to n do begin
A[i]:=(random(30)-15);
if a[i] mod 2 = 0 then begin
write(a[i],' ');
kol:=kol+1;
end;
end;
writeln;
if kol <> 0 then writeln('Кол-во четных элементов: ',kol)
else writeln('Четных элементов нет');
<span>end.</span>
1 байт = 8 бит
1 Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
1 ГБ = 1024 МБ
1 бит = 0,00012 Кбайт
1 Мбайт = 1048576 байт
1 байт = 8 битов
128 битов = 16 байт
32 байт = 256 бит
1 Кбайт = 1024 байт
1,5 Кбайт = 1536 байтов
2048 байт = 2 Кбайт
81 920 битов = 10 Кбайт
2 Мбайт = 2048 Кбайт
1,5 Мбайт = 1572864 байтов
а потом сам(а)
Var
i : Integer;
begin
for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then <span>Writeln(i);
</span> Readln;
<span>end.</span>
П
ы с
л о
е к б
с е а
о к к
с о с т а в
с у о
и ч л
н а к
а
1)машина собирающая грязь
2)подруга ёлки
3)синоним слова "маффин"(булочка)
4)хмурое облако
5)друг человека
6)дикая собака