Мне кажеться 2 правильно,а это в каком приложении надо сделать?
В ячейке Б2 через мастер функций забиваешь 2 функции: ЕСЛИ ДЕЛИТСЯ НА 2, ТО 1-ПРАВДА 0-ЛОЖЬ, ЕСЛИ ДЕЛИТСЯ на 10, ТО 2- ПРАВДА 0-ЛЛЖЬ.. Копируешь до 25 ячейки, у тебя будут цифры 0, 1, 2. дальше в любых ячейках создаешь
функцию СЧЕТЕСЛИ, выделяешь диапазон (Ячейку с Б2 по Б25). Компа рядом нет, поэтому не так подробно.
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.
Вводите с клавиатуры кол-во элементов массива, а затем сам массив.
i=6
v=i*k
v=6*2048=12288 бит=1536 байт=1,5 кбайт
Ответ: 1.5кбайт