Очень баллов
Дан целочисленный массив A размера N. Переписать в новый целочисленный массив B все чётные числа из исходного массива(в том же порядке) и вывести размер полученного массива и его содержимое.
Это задача Array54 из задачника PT4.
Решение нужно на PascalABC. net !

--- PascalABC.NET 3.6.2 ---

begin

 var N := ReadInteger('Enter "N": ');

 var A := ArrRandom(N, -99, 99);

 A.Println; //Для проверки

 var B := A.Where(p -> p mod 2 = 0).ToArray;

 B.Println;

end.

Объяснение:

56 кбит/с = 56000 бит/с (в скорости предачи данных обычно 1кбит/с = 1000 бит/с )

посчитаем кол-во данных, которые передали за 5 секунд:

56000 бит/с * 5 с = 280000 бит

в обычной кодировке один символ занимает один байт (то есть 8 бит)

посчитаем количество переданных символов текста:

280000 бит / 8 = 35000 символов

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.