Составить программу: сформировать в памяти массив из 15 целых чисел.Изменить массив...

Question

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

Comments

for i:=1 to mass.length doif(odd(mass[i])) then mass[i]=0else mass[i]*=2;

---

воу,это всё?огромнейшее спасибо!

Answer 1

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.

Comments

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

---

Не за что)