1) Заполните массив из 10 элементов последовательными натуральными числами, начиная с X (значение X введите с клавиатуры). 2) Напишите программу, которая заполняет массив из 10 элементов случайными числами в диапазоне [0;10], выводит его на экран, а затем выводит на экран квадраты всех элементов массива.
3) Напишите программу, которая заполняет массив из 10 элементов случайными числами на отрезке [ -5;5] и находит сумму положительных элементов

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

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

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

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

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

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

если есть д ш и в то это не куб а параллелипипед

var 

a,b,c,r: real;

begin

readln(a,b,c,r);

if (2*r< a) and (2*r< b) and  (2*r< c)

then writeln('поместится')

else writeln ('не поместится');

end.

для куба достаточно одного условия (2*r< a) 

program temperature; uses crt; var x : array [1..2,1..12] of real; t,m,i : integer; z,v,l,o : real; begin z: =0; v: =0; l: =0; o: =0; for i: =1 to 12 do x[1,i]: =i; x[2,1]: =-11; x[2,2]: =-31; x[2,3]: =-18; x[2,4]: =-7.5; x[2,5]: =5.8; x[2,6]: =10; x[2,7]: =18; x[2,8]: =22.2; x[2,9]: =24; x[2,10]: =17; x[2,11]: =5.4; x[2,12]: =-7; for i: =1 to 3 do z: =z+x[2,i]; for i: =4 to 6 do v: =v+x[2,i]; for i: =7 to 9 do l: =l+x[2,i]; for i: =10 to 12 do o: =o+x[2,i]; z: =z/3; v: =v/3; l: =l/3; o: =o/3; writeln('средняя температура зимних месяцев = ',z: 3: 1); writeln('средняя температура весенних месяцев = ',v: 3: 1); writeln('средняя температура летних месяцев = ',l: 3: 1); writeln('средняя температура осенних месяцев = ',o: 3: 1); end.

program num2; uses crt; var x : array[1..100] of integer; i, n : integer; begin clrscr; write('n='); readln(n); for i: =1 to n do begin write('x[',i,']='); readln(x[i]) end; for i: =1 to n do if x[i]< 0 then writeln('x[',i,']< 0 and x[',i,']=',x[i]); end.

на столе лежали ложки,

мама приготовила нам рожки.