Задали к понедельнику сделать, не успеваю. 1) заполнить массив из 5 элементов четными значениями, начиная с 12. массив объявлен как var arr11: array[1…5] of integer. вывести элементы на экран в одну строку через знаки двоеточия. сосчитать сумму элементов, вывести сумму на экран с новой строки. 2) заполнить массив из 10 элементов целыми значениями от 20 до 11. массив объявлен как var arr12: array[0…9] of integer. вывести элементы на экран в одну строку через пробел. ввести с экрана произвольный номер элемента массива и вывести его значение. 3) заполнить массив из 6 элементов нечетными значениями, начиная с 9. массив объявлен как var arr21: [1…6] of integer. вывести элементы на экран в одну строку через знаки точка с запятой(; сосчитать сумму элементов, вывести сумму на экран с новой строки. 4) заполнить массив из 12 элементов целыми значениями от 30 до 19. массив объявлен как var arr22: array [0…11] of integer. вывести элементы на экран в одну строку через пробел. ввести с экрана произвольный номер элемента массива и вывести его значение.

Вот, в прикреплении:

1.   8 * 40 * 64 * 16 = 327680 (бит)

    327680 / 8 = 40960 (байт)

    40960 / 1024 = 40 (кбайт)

ответ: 40 кбайт

3. я насчитал в вашей строке 29 символов, если она точь-в-точь, как вы написали. если не столько, просто поменяйте значение в формуле:

29 * 16 = 464 (бит)

464 / 8 = 58 (байт)

ответ: 54 байт

2. сначала переводим 40 кбайт в биты, действия обратные тем, которые используются в первой :

40 кбайт = 327680 (бит)

327680 / 16 = 20480 (всего символов)

20480 / 8 = 2560 (символов на одной странице)

2560 / 64 = 40 (строк на одной странице)

ответ: 40

var u1,u2,u3,u4,u5,otv1,otv2,otv3,otv4,otv5: double; //ввод десятичных через точку

begin

writeln('введите рост 1 в метрах');

readln(u1);

writeln('введите рост 2 в метрах');

readln(u2);

writeln('введите рост 3 в метрах');

readln(u3);

writeln('введите рост 4 в метрах');

readln(u4);

writeln('введите рост 5 в метрах');

readln(u5);

otv1 : = u1*100;

otv2 : = u2*100;

otv3 : = u3*100;

otv4 : = u4*100;

otv5 : = u5*100;

writeln('ответ 1 ', otv1, 'см');

writeln('ответ 2 ', otv2, 'см');

writeln('ответ 3 ', otv3, 'см');

writeln('ответ 4 ', otv4, 'см');

writeln('ответ 5 ', otv5, 'см');

end.