Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из

@Deftec · Регистрация: 05.12.2016

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

Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из заданного одномерного массива произвольного размера переписать последовательно в другой массив номера нечетных элементов начального массива.
Применении процедур и функций

@JuriiMW · 29.12.2016, 07:00

Pascal

function ИндексыНечётных(var a : array of Integer) : array of Integer :=
  a.Select((v, i) -> odd(v) ? i : -1).Where(v -> v > -1).ToArray;
 
begin
  Randomize;
  var a := ArrRandomInteger(ReadLnInteger('Размер массива a:'), 0, 99);
  var b := ArrRandomInteger(ReadLnInteger('Размер массива b:'), 0, 99);
  WriteLn('Созданы массивы:');
  Write('a : '); a.Println;
  Write('b : '); b.Println;
  Write('Индексы нечётных элементов массива a : '); ИндексыНечётных(a).Println;
  Write('Индексы нечётных элементов массива b : '); ИндексыНечётных(b).Println;
end.

@Deftec 0 / 0 / 0 Регистрация: 05.12.2016 Сообщений: 12
		1
	Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из 29.12.2016, 00:32. Показов 3513. Ответов 1 Метки нет (Все метки) Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из заданного одномерного массива произвольного размера переписать последовательно в другой массив номера нечетных элементов начального массива. Применении процедур и функций 0

Опции темы

Даны два одномерных массива разной размерности. Для каждого из заданных одномерных массивов выполнить: из

Решение