20. Книжка, в которой 400 страниц текста (каждая страница содержит 30 строк по 60 символов в каждой), закодирована в 8-битной кодировке. Сколько се-
кунд потребуется для передачи этой книжки по линии связи со скоростью 5
кбит/с?
очень

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

1)
begin 
  ReadArrInteger(ReadInteger('n->')).Select(t->-t).Println;
end.

Пример:
n-> 5
7 -9 4 5 -20
-7 9 -4 -5 20

2)
begin
 var a:=ReadArrInteger(ReadInteger('n->')); var (f,l):=(a[0],a[a.Length-1]);
 Range(0,a.Length-1).ForEach(t->begin if a[t]<>0 then if a[t].IsEven then a[t]:=a[t]+f else a[t]:=a[t]+l;end);
 a.Println;
end.

Пример:
n-> 14
1 5 4 7 8 6 2 4 2 4 0 4 0 3
4 8 5 10 9 7 3 5 3 5 0 5 0 6

3)
begin
 var a:=ReadArrInteger(ReadInteger('n->')); var im:=a.IndexMax;
 If im<>a.Length-1 then a:=a[:im]+a[im+1:]+arr(0) 
                           else a:=a[:im]+arr(0); 
 a.Println;
end.

Пример(1):
n-> 5
1 2 5 3 4
1 2 3 4 0

Пример(2):
n-> 5
1 2 3 4 5
1 2 3 4 0

#include <iostream>
using namespace std;

int main() {
    int n = 10, s = 0, i;
    int a[n];
    srand(time(NULL));
    cout<<"array:"<<endl;
    for (i=0; i<n; i++)
    {
      a[i]=rand() % 40-20;
      cout<<a[i]<<" ";
    }
    cout<<endl;
    i = 0;
    while ((i<n) && (a[i] != 0)) {
    s += a[i];
    i++;
    }
    if (i == n) cout << "В массиве нет элементов = 0";
    else cout << "s = " << s;
    system("pause");
    return(0);
}

Пример:
12 -9 17 15 0 13 -10 19 18 15
s = 35