Вопрос № 123156: мне нужно написать программку: Задан массив с количеством элементов N. Сформировать два массива: в первый включить
элементы исходного массива с чётными номерами, а второй - с нечётными.
заранее спасиб если что вышлите на мою почту :-)))...
Вопрос № 123.156
мне нужно написать программку: Задан массив с количеством элементов N. Сформировать два массива: в первый включить
элементы исходного массива с чётными номерами, а второй - с нечётными.
заранее спасиб если что вышлите на мою почту :-)))
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Романова Марина!
Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Профессионал) Россия, Москва WWW:nvsoft.org ICQ: 420720 ---- Ответ отправлен: 14.02.2008, 18:33
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Романова Марина!
И вариант без операторов сравнения.
Удачи!
Приложение:
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 14.02.2008, 18:51
Отвечает: Шемет Станіслав Васильович
Здравствуйте, Романова Марина!
Const
n=27;
var
M:array[1..n]of integer;
Chet,NoChet:array[1..(n div 2)+1 ] of integer;
I,J,K:integer;
begin
j:=1;
K:=1;
for i:=1 to n do
If i mod 2 =0 then
begin
Chet[k]:=m[i];
Inc(K);
end
else
Begin
NoChet[J]:=m[i];
inc(j);
end;
end.
