Дан одномерный массив А. Удалить элементы одномерного массива которые содержат только нечетные цифры

@Yanik · Регистрация: 28.11.2012

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

Дан одномерный массив А. Удалить элементы одномерного массива которые содержат только нечетные цифры.

@shaiah · 16.01.2013, 10:40

Pascal

var 
  a: array of Integer;
  b: array of Integer;
  i, j, n: Integer;
 
begin
  write('введите количество элементов = ');
  readln(n);
  
  write('введите массив = ');
  for i:= 0 to n do
  begin
    setlength(a, length(a) + 1);
    readln(a[i])
  end;
 
  for i:= 0 to n do
    if (a[i] mod 2) = 0
    begin
      setlength(b, length(b) + 1);
      b[length(b) + 1] := a[i];
    end;
  for i:= 0 to length(b) do
    write('результат = ', b[i])
  readln;
end.

@Yanik 0 / 0 / 0 Регистрация: 28.11.2012 Сообщений: 22
		1
	Дан одномерный массив А. Удалить элементы одномерного массива которые содержат только нечетные цифры 16.01.2013, 10:10. Показов 1116. Ответов 1 Метки нет (Все метки) Дан одномерный массив А. Удалить элементы одномерного массива которые содержат только нечетные цифры. 0

Опции темы

Дан одномерный массив А. Удалить элементы одномерного массива которые содержат только нечетные цифры

Решение