(паскаль)заполнить с клавиатуры массив из 10 элементов. вывести на экран те элементы массива, которые имеют четный номер и четное значение .

Program  gt; var  a: array[1..100]of  integer; i: integer; begin for  i: =1  to  10  do begin read(a[i]); end; for  i: =1  to  10  do begin if(a[i] mod 2=0)or(i mod 2=0)then write(a[i],' '); end;

Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k: =0; s: =0; while n> 0 do begin c: = n mod 10; s: =s+c; k: =k+1; n: =n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa: =s/k; write ('среднее арифметическое =', sa) end.

2^i = 64

i = 6 бит потребуется на 1 символ

256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст

196608 бит: 8 = 24576 байт : 1024 = 24 килобайт

ответ. 24 килобайт