Заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1

@dimasBy · Регистрация: 13.11.2012

Студворк — интернет-сервис помощи студентам

1. В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.

@ermolay · 13.11.2012, 02:46

Pascal

const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i: integer;
begin
  write('Сколько элементов в массиве? ');
  readln(n);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    a[i]:=random(11)-5;
    write(a[i],' ');
  end;
  writeln;
  writeln('Полученный массив');
  for i:=1 to n do
  begin
    if i mod 2=0 then a[i]:=0 else a[i]:=1;
    write(a[i],' ');
  end;
  readln;
end.

@dimasBy · 13.11.2012, 02:48 **[ТС]**

Благодарю

@dimasBy 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 39
		1
	Заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1 13.11.2012, 02:38. Показов 1545. Ответов 2 Метки нет (Все метки) 1. В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1. 0

@dimasBy 0 / 0 / 0 Регистрация: 13.11.2012 Сообщений: 39
	13.11.2012, 02:48 [ТС]	3
	Благодарю 0

Опции темы

Заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1

Решение