Модем способен передавать информацию со скоростью 48000бит в секунду. сколько символов текста передаст модем за 5 минут? (unicode)

5мин=300 сек. 48000 бит*300сек=14400000   а дальше по формуле

1символ=8бит. 48000/8=6000. в 5мин.-300сек. 6000×300=1800000

1- var      a: array[1..5] of integer;   s,p,k,i,c : integer; begin     for i: =1 to 5 do begin         write('ведите число ');       readln(a[i]);     end;     s: =0; c: =0;     p: =1; k: =0;     for i: =1 to 5 do begin         if   a[i]> 0 then begin s: =s+a[i]; c: =c+1; end;         if (a[i] mod 12)< > 0 then p: =p*a[i];           if (a[i]mod 2)=0 then k: =k+1;     end;     writeln('средняя сумма положительных чисел= ',s/c) ;     writeln('произведение чисел не кратных 12= ',p) ;     writeln('количество чётных чисел= ',k) ; end.можно сделать и с одним циклом. если надо - отпишись. 2расчёт с учётом того что у сотрудников разная зптоже можно сделать с одним   циклом.var      a: array[1..5] of integer;     i,zp: integer; begin    for i: =1 to 5 do begin    write('ведите зарплату сотрудника ',i,': ');     readln(a[i]);     end;   zp: =0;   for i: =1 to 5 do zp: =zp+a[i];   write('общая сумма=',zp);     end. 3var      a: array[1..20] of integer;     i,p,s,summ: integer; begin    for i: =1 to 20 do begin    write('ведите число ');     readln(a[i]);     end;   p: =1; s: =0; summ: =0;   for i: =1 to 20 do begin    if a[i]> 8 then   begin p: =p*a[i]; s: =s+1; end;     if (a[i]mod 15)< > 0 then summ: =summ+a[i];   end;   writeln('среднее произведение чисел больше 8= ',p/s);   write('семма чисел не кратных 15= ',summ);     end.и это тоже можно с одним циклом

Var a: array[1..15] of integer; i: integer; begin for i: =1 to 15 do read(a[i]); for i: =15 downto 1 do write(a[i],' '); end.var a: array[1..4,1..4] of integer; i,j,s: integer; beginfor i: =1 to 4 do  for j: =1 to 4 do begin  read(a[i,j]);   if i=j then s+=a[i,j];   end; for i: =1 to 4 do begin  for j: =1 to 4 do  write(a[i,j]: 3); writeln; end; writeln(s); end.var a: array[1..20] of integer; i,max: integer; beginfor i: =1 to 20 do beginread(a[i]); if (a[i]> =100) and (a[i]< 1000) and (a[i] mod 9 < > 0) and (a[i]> max) then max: =a[i]; end; if (max< > 0) then writeln(max)else writeln('не найдено'); end.