Var i,n,nmb: integer;
<span> dg,sm: real;
</span><span>begin
</span><span> sm:=0; nmb:=0;
</span><span> write('n = ');
</span><span> readln(n);
</span><span> write('числа через пробел: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> read(dg);
</span><span> if dg<0 then</span><span>
</span> begin
<span> sm:=sm+dg;
</span><span> nmb:=nmb+1;
</span><span> end;
</span><span> end;
</span><span> writeln('сумма отрицательных чисел = ',sm);
</span><span> writeln('среднее арифметическое = ',sm/nmb);
</span><span>end.
</span>
1) Вопрос некорректен, если под словом переработка имеется ввиду обработка то да, но если что то другое то нет
2) Нет (правильно двоичная)
3) 4 (вопросительный знак недопустим)
4: 4 Кб = 4096 б
4096 б / 4096 символов = 1 б - на символ
алфавит содержит 2^8 = 256 символов
10: 375 б :500 = 6 бит на символ
мощность = 2^6 = 64 символа
Var i,d:integer;
uses crt;
Begin
for i:=1 to 20 do begin
d:=sqr(i);
end;
readln;
end.
Не проверял, накидал на быструю руку, но должно работать.
Var a:array[1..10] of integer;
i:integer;
begin
i:=1;
repeat
readln(a[i]);
i:=i+1;
until i>10;
end.