Задан одномерный массив K[n]. Создать одномерные массивы L и M. Массив L будет содержать четные элементы массива K, а массив M - нечетные.
Задан одномерный массив K[n]. Создать одномерные массивы L и M. Массив L будет содержать четные элементы массива K, а массив M - нечетные.
Гость
Ответ(ы) на вопрос:
Гостьconst n=5;
var k,l,m:array[1..n] of integer;
i,p1,p2:integer;
begin
for i:=1 to n do
read(k[i]); {задаем массив с n=5 елементов}
for i:=1 to n do
if (k[i] mod 2=0) then {Проверяем четное число или нет}
begin
inc(p1); {Если да , то 'кидаем' елемент в массив L}
l[p1]:=k[i];
end
else
begin
inc(p2); {Если нет , то 'кидаем' елемент в массив M}
m[p2]:=k[i];
end;
writeln; {Вывод}
write('Четные:');
for i:=1 to p1 do
write(l[i],' ');
writeln;
write('Нечетные');
for i:=1 to p2 do
write(m[i],' ');
end.
Не нашли ответ?
Похожие вопросы