Составить программу:
сформировать в памяти массив из 15 целых чисел.Изменить массив так,чтобы числа под чётными номерами были удвоены,а на нечётных-заменены нулями.
Пожалуйста!

солнышко,спасибо!

Не за что)

var  a: array [1..25] of integer;begin  for i: integer := 1 to 25 do  begin    a[i] := random(255);    writeln(i, ' => ', a[i]);  end;  writeln('-----------------------------------');  for i: integer := 1 to 25 do  begin    if (i mod 2 = 0) then      a[i] := a[i] * 2    else      a[i] := 0;    writeln(i, ' => ', a[i]);  end;end.