Написать программу которая формирует новый массив элементами которого являются все четные элементы

@Егорчик · Регистрация: 20.12.2009

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

Написать программу которая формирует новый массив элементами которого являются все четные элементы расположенные в нечетных ячейкай заданного массива

@lera8 · 20.12.2009, 22:56

Pascal

var
 a,b:array [1..20] of integer;
 i,k,n:integer;
begin
 writeln('Введите размер массива');
 readln(n);
 {Заполнение массива случайными числами}
 for i:=1 to n do
      a[i]:=random(100);
  writeln('исходный массив');
  for i:=1 to n do
      write(a[i]:4);  writeln;
  for i:=1 to n do
      if (a[i] mod 2 =0) and (i mod 2 <>0) then
        begin
          k:=k+1;
          b[k]:=a[i];
        end;
    writeln('Новый массив');
  for i:=1 to k do
   write(b[i]:4);
 end.

@Егорчик 0 / 0 / 0 Регистрация: 20.12.2009 Сообщений: 8
		1
	Написать программу которая формирует новый массив элементами которого являются все четные элементы 20.12.2009, 22:22. Показов 1874. Ответов 1 Метки нет (Все метки) Написать программу которая формирует новый массив элементами которого являются все четные элементы расположенные в нечетных ячейкай заданного массива 0

	20.12.2009, 22:56

Написать программу которая формирует новый массив элементами которого являются все четные элементы

Решение