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

Ответы 3

  • солнышко,спасибо!
    • Автор:

      flybyelba
    • 6 лет назад
    • 0
  • Не за что)
    • Автор:

      rabbit
    • 6 лет назад
    • 0
  • 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years