Составить программу:
сформировать в памяти массив из 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.

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

Не за что)