===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -50, 99);
a.Println;
var (s, p) := (0, BigInteger.One);
for var i := 0 to a.High do
begin
s += a[i];
p *= a[i]
end;
Println('Сумма', s, ' произведение', p,
' среднее', s / a.Length)
end.
512x1024.=524288 вот и всё
пирамида.................
Для начала создайте файл типа блокнот (расширение .txt) под названием input. Файл output создастся автоматически.
Program apple;
Uses crt;
Var a, b, m, n: integer;
f1, f2: text;
Begin
Assign (f1, 'input.txt');
Assign (f2, 'output.txt');
Reset (f1);
Rewrite (f2);
Readln (a, m, b, n);
If a*m>b*n then
Writeln (f2, a*m)
Else writeln (f2, b*n);
Close (f1);
Close (f2);
End.
Скорость модема переведем в байты
28800 / 8 = 3600 байт / с
если текст занимает 3600 байт, то передача займет 1 секунду