Помогите оставить программку в Паскале: Дан одномерный массив поменять все чётные

Помогите бросить программку в Паскале:

Дан одномерный массив заменить все чётные элементы массива нулём

Задать свой вопрос
Perlja Igor
Четные - это с четными номерами в массиве либо с четным значением элемента?
Альбина Лачина
номерами
Эвелина
Тогда еще вопрос: это порядковые номера частей в массиве, или его индексы? И если индексы. то какой индекс имеет 1-ый элемент?
Алексей Джубалиев
Задачи в том, что в Вашем задании ДАН массив, т.е. предполагается,что он описан и заполнен. А Вы не дали даже его описания. Приходится выпытывать...
Violetta Posluhaeva
это порядковый номер элемента
Инна Батозская
Светло. Т.е. индекс массива маловажен, основное - какой он стоит по порядку. Нулем заменяются по порядку второй, 4-ый и т.д. элементы
Софья Куралина
да верно
1 ответ
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var a:=ArrRandom(ReadInteger('n='),1,99);
  a.Println;
  for var i:=0 to a.Length-1 do
    if Odd(i) then a[i]:=0;
  a.Println
end.

Тестовое решение:
n= 15
86 25 63 95 28 78 30 41 26 3 52 30 46 74 84
86 0 63 0 28 0 30 0 26 0 52 0 46 0 84

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт