1. За 5 секунды модем передал 1800 байт. Определить скорость модема. 2. Файл размером 1024 Кбайт был передан за 3 минуты. Определить скорость передачи.
3. Каково время (в минутах) передачи полного объёма данных по каналу связи, если известно, что передано 150 Мбайт данных Скорость передачи данных 2 Мбита в секунду.
4. Электронный почтовый ящик имеет объём 2 Мбайта. Информация на его адрес идёт по открытому каналу связи, передаётся со скоростью 1,5 Кбайта/с. Через какое время у поставщика услуг электронной почты появится повод прислать уведомление о переполнении ящика? Укажите время в секундах округлив до целых.
5. Скорость передачи данных по каналу связи равна 1024 Кбайта/с. Передача по данному каналу заняла 4 секунды. Определить размер файла в байтах.

1. Современная версия программы

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
  var n:=ReadInteger('n=');
  var x:=ArrRandom(n,-5,20); x.Println;
  if x.Min<0 then x:=x.Select(e->abs(e)).ToArray;
  x.Println
end.

Тестовое решение
n= 15
14 18 4 17 9 6 13 13 12 -1 13 5 11 -2 14
14 18 4 17 9 6 13 13 12 1 13 5 11 2 14

2. Школьная версия программы

// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
const
  nn=50;
var
  x:array[1..nn] of integer;
  i,m,n:integer;
begin
  Write('n= '); Read(n);
  Randomize;
  x[1]:=Random(26)-5; m:=x[1];
  Write(x[1],' ');
  for i:=2 to n do begin
    x[i]:=Random(26)-5;
    if x[i]<m then m:=x[i];
    Write(x[i],' ')
    end;
  Writeln;
  if m<0 then begin
    for i:=1 to n do begin
      x[i]:=abs(x[i]);
      Write(x[i],' ')
      end;
    Writeln
    end
end.

Тестовое решение
n= 15
9 3 14 4 9 2 1 6 9 19 20 8 14 -3 9
9 3 14 4 9 2 1 6 9 19 20 8 14 3 9

Подтверждает довольно популярное мнение о том, что в школьной информатике многое давно пора менять...
Зачем учить писать длинно и сложно?

Если правильно расставить отступы, то алгоритм должен вывести это:
Ира съел(a) молоко.

#Programm created by lagov Gleb
#This programm is generator random wordsXD
name = ['Глеб', 'Артем', 'Ира', 'Варя', 'Андрей']
glagol = ['выпил(a)', 'съел(a)', 'купил(а)', 'укусил(а)', 'пнул(а)']
predmet = ['молоко', 'дверь', 'велосипед', 'лестницу', 'XBOX', 'PlayStation']
from random import randint
def pick(words):
      num_words = len(words)
      num_picked = randint(0, num_words - 1)
      word_picked = words[num_picked]
      return word_picked
print(pick(name), pick(glagol), pick(predmet), end='.\n')
input()