Дана последовательность из n чисел. написать программу которая подсчитывает количество отрицательных чисел в последовательности.

Var a,s,i,n: integer; begin; randomize; readln(n); writeln('false array: '); for i: =1 to n do begin; s: =random(-10,10); writeln(s); if s< 0 then inc(a); end; writeln('result: ',a); end.

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

в секунду передается 512кбит=512/8кбайт=64кбайт

за четыре минуты передалось 4*60*64=15360кбайт

в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт

ответ: 15 мегабайт