Var
z: array[0..9]of real = (-6, 98, -45, 9, 4, -7, -12, 32, 1, 3);
sum: real;
i: integer;
begin
for i := 0 to 9 do
if(z[i] < 0) then sum := sum + z[i];
write(sum);
end.
Если всё так как написанно, то программа вообще не скомпилируется. Должно быть
a:=1;b:=1;
while a<2 do
begin
b:=b+2;
end;
s:=a+b;
в теле цикла переменная а не изменяется, поэтому цикл будет бесконечным. То есть пока Ctrl-Break не нажмешь будет кажаться что программа зависла.
30 кБ = 30 * 1024 = 30720 бит.
Время передачи равно 30720 / 5120 = 6 секунд.
После уменьшения скорости сможем передать 4096 * 6 = 24576 бит
24576 бит = 24576 / 1024 = 24 кБ
1 c 3 a 4 d 5 a
и все готово