===== PascalABC.NET =====
begin
var a := ArrRandom(5, -1, 1);
foreach var x in a do
Write(x:3)
end.
2468,6824,4682,2486,2684,2648,6248,6842,2846,2864,6284,8642,8624,8264,8246,8426,8462,4862,4826,4286,4268,4628,4682.
8 мин = 480 с
I = V * t (объем информации = скорость * время)
I = 10 Мбит/с * 480 с = 4800 Мбит = 600 Мбайт
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.