Все числа стоящие на четных местах-удвоить, а остальные возвести в квадрат

var

a: array[1..100] of real;

i,n: integer;

begin

readln(n);

{читаем n-количество чисел в массиве}

for i: =1 to n do

read(a[i]);

{вводим массив}

for i: =1 to n do

begin

if i mod 2=0 then a[i]: =a[i]*2

else

a[i]: =a[i]*a[i]

end;

for i: =1 to n do

write(a[i],' ');

end.

Февральская революция 1917 года в России (в советской историографии — Февральская буржуазно-демократическая революция[2][3] или Февральский переворот[4], на Западе также часто используется название Мартовская революция (англ. March Revolution, в соответствии с календарём нового стиля) — массовые антиправительственные выступления петроградских рабочих и солдат петроградского гарнизона, приведшие к свержению российской монархии и созданию Временного правительства, сосредоточившего в своих руках всю законодательную и исполнительную власть в России. Революционные события охватили период конца февраля — начала марта 1917 года (по юлианскому календарю, действовавшему в то время в России).

Это пример, там условие одинаковое только не совсем совпадают цифры.

1. Объем видеопамяти: 12Х8бит=12 байт.

2. Имеем 12 строк по 8 столбцов, информация о цвете закодирована 16-тиричным числом. Каждая цифра содержит код о 4-х подряд идущих пикселях. Значит надо перевести пары цифр в двоичную систему:

18: 0001 1000

38: 0011 1000

30: 0011 0000

12: 0001 0010

14: 0001 0100

18: 0001 1000

30: 0011 0000

60: 0110 0000

А8: 1010 1000

44: 0100 0100

44: 0100 0100

00: 0000 0000

Цифра 0 - белый цвет пикселя, 1 - черный цвет.