2часа - 7200 сек.
Следовательно за 2 часа можно передать 3600 Мбит, что равняется 0,4 Гб
A b c s
3 5 3 3
7 10 2 5
15 4 18 23
1 1 -1 22
6 0 12 34
0 10 30 64
21 8 18 82
7 14 14 96
8 2 10 106 - конец цикла
0 9 27 133
15 4 18 18
5 16 28 46
-4 6 34 80
1 -1 5 85
17 5 19 104 -конец цикла
0 6 18 122
9 1 15 137
-4 5 31 168
6 10 6 174
21 42 42 216
121X=110
X=121/110
///////////////////////////////////////
var a,b,c,y,x,min,max:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Введите третье число');
readln(c);
writeln('Введите четвертое число');
readln(x);
writeln('Введите пятое число');
readln(y);
if a > b then max :=a else max :=b;
if max < c then max:=c;
if max < y then max:=y;
if max < x then max:=x;
writeln('Максимальное число = ',max);
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.