байта.
<span> - это перевод 1 Мбайта в байты</span>
var a:array of integer;
N,i,k:integer;
function f(a:integer):Boolean;
begin
if (a mod 2=0) then f:=True else
f:=False;
end;
BEGIN
k:=0;
writeln('Введите количество элементов массива');
readln(N);
SetLength(A,N);
writeln('Введите массив');
for i:=0 to N-1 do begin
read(a[i]);
if (f(a[i])=True) then k:=k+1;
end;
writeln('Количество чётных элементов массива = ',k);
end.
Вводите с клавиатуры кол-во элементов массива, а затем сам массив.
А10=1997,25=1*10^3+9*10^2+9*10^1+7*10^0+2*10^(-1)+5*10^(-2)
A16=918=9*16^2+1*16^1+8*16^0
A8=145=1*8^2+4*8^1+5*8^0
A2=101010=1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0