//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a:array of integer; i,n:integer; begin //Заполняем массив сл. числами и выводим //массив нумеруется с 0 write('Число элементов массива ');readln(n); setlength(a,n); for i:=0 to n-1 do begin a[i]:=random(21)-10; write(a[i]:4); end; writeln;
//Вывод элементов с неч. номерами в обратном порядке for i:=n-1 downto 0 do if i mod 2 <> 0 then write(a[i]:4); end.
Тестовое решение: Число элементов массива 8 -2 2 -6 -5 1 3 -7 -10 -10 3 -5 2
1) 65536 = 2¹⁶ 16=2⁴ до преобразования для кодирования одной точки требовалось 16 бит, а после преобразования - 4 бита 16/4 = 4 ответ: в 4 раза уменьшился объем используемой памяти 2) 16 = 2⁴ 4294967296 = 2³² до преобразования для кодирования одной точки требовалось 4 бита, а после преобразования - 32 бита 32/4 = 8 ответ: в 8 раз увеличится объем 3) 256 = 2⁸ на кодирование одной точки требуется 8 бит = 1 байт 120/1 = 120 ответ: 120 точек содержит рисунок 4) 64*32 = 2048 точек содержит рисунок 64 Кб = 65536 байт = 524288 бит 524288 / 2048 = 256 бит -используется для кодирования одной точки N = 2²⁵⁶ - максимальное количество используемых цветов ответ: 2²⁵⁶
n,i:integer;
begin read(n);
for i:=1 to n do
read(a[i]);
for i:=n downto 1 do
if i mod 2<>0 then
write (a[i]:5);
End.