ЧТО ВЫПОЛНЯТЬ?
ТО НЕЧЁ ТУТ НЕТУ!!!
Program aaa;
var
a,b,c,n,i:longint;
M:array[1..1000000] of real;
begin
read(n); //
for i:=1 to n do //если считывать массив не нужно, то удалить
read(M[i]); //
a:=0;
b:=0;
c:=0;
for i:=1 to n do
begin
if M[i]>0 then inc(a);
if M[i]=0 then inc(b);
if M[i]<0 then inc(c)
end;
writeln('положительных элементов:',a);
writeln('нулевых элементов:',b);
writeln('отрицательных элементов:',c)
<span>end.</span>
I1=5120*8=40960 бит/8/1024 = 5 КБ
После преобразования документ будет весить в 2 раза больше.
Поэтому памяти также потребуется в 2 раза больше.
I2=5120*16=81920 бит/8/1024 = 10 КБ
Значит, потребуется еще 5 КБ.
Найди лишнее десятичное чило и зачеркни.23,53,73,37,83.17,20,21,37,9940,44,48,88,42
Kulebakin
1 лишнее число-37 2 лишнее число-99 3 лишнее число-88
2) положить на стол. 4)начать писать что надо. 5)проверить. 8)решить его в черновике...