ответ Счастливого плавания
var
a,k :integer;
begin
repeat
begin
writeln ('введи число');
read (a);
if (a mod 2 <>0) then k:=k+1;
end;
until a=0;
writeln ('количество нечетных чисел k=',k);
end.
1536 < 2048
2048 = 2 ^11
11 битов нужно для идентификации номера
11*1536 = 16896 битов памяти для хранения 1536 абонентов
Const n=10;
var
a: array[1..n] of real;
s, k: real;
i, m: integer;
begin
//считываем данные в массив
for i:=1 to n do
readln(a[i]);
k:=0; m:=0;
//находим сумму и количество целых элементов
for i:=1 to n do
if a[i] = int(a[i]) then
begin
k:=k+a[i];
inc(m);
end;
//находим среднее арифметическое
s := k/m;
writeln(s);
<span>end.</span>