Какой объем информации можно получить за 1 час, передавая её со скоростью 2 кбайт/мин? 1.120 байт 2.2048 байт 3.120 кб 4.2 кб

2кб*60мин=120кб за час

//pascal abc.net версия 2.2 сборка 790 var ar: array[1..10] of integer; i: integer; begin; randomize; writeln('first array'); for i: =1 to 10 do begin; ar[i]: =random(1,10); writeln(ar[i]); if ar[i] mod 2=0 then inc(ar[i]); end; writeln('final array'); for i: =1 to 10 do writeln(ar[i]); end. пример вывода: first array 3  3  4  10  10  4  6  9  6  7  final array 3  3  5  11  11  5  7  9  7  7

Var ar1: array[1..10] of integer; ar2: array[1..10] of integer; i: integer; begin; randomize; writeln('+ array'); for i: =1 to 10 do begin; ar1[i]: =random(1,10); write(ar1[i]: 4); end; writeln; writeln('- array'); for i: =1 to 10 do begin; ar2[i]: =random(-10,-1); write(ar2[i]: 4); end; writeln; writeln('+'); for i: =1 to 10 do write(ar1[i]+ar2[i]: 4); writeln; writeln('-'); for i: =1 to 10 do write(ar1[i]-ar2[i]: 4); writeln; writeln('*'); for i: =1 to 10 do write(ar1[i]*ar2[i]: 4); end.