Задан одномерный массив K[n]. Создать одномерные массивы L и M. Массив L будет содержать...

Question

Задан одномерный массив K[n]. Создать одномерные массивы L и M. Массив L будет содержать четные элементы массива K, а массив M - нечетные.

Answer 1

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.
 

Comments

Практически в любой задаче со статическими массивами часть хвостовых элементов будет содержать с точки зрения решаемого задания "мусор". Означает ли это, что задачи не должны использовать статические массивы, а языки, где динамических массивов нет, должны быть заклеймены позором?

---

Если я язык позволяет, надо этим пользоваться, чтобы решение максимально удовлетворяло условию

---

И я настоятельно рекомендую не использовать языки высокого уровня без динамических типов, это убого

---

Да кто Вы такой, чтобы "настоятельно рекомендовать", да еще рассуждать об "убогости"?

---

А кто вы такой, чтобы я с вами вел подобные беседы и обосновывал свои мысли?

---

Я модератор данного предмета и мое мнение в данном случае является решающим.

---

Из-за того, что вы модератор этого сайта ваше мнение по поводу программирования считается более верным. Т.е. из-за того, что вы модератор, вы лучший специалист? Интересненько, продолжайте

---

Получается именно так - мое мнение считается более весомым. Если Вас это не устраивает, Вы можете или покинуть этот Сервис или написать жалобу Администрации

---

Да, напишите. А за обсуждение действий модератора в подобном ключе отдохните 15 минут.

Answer 2

Приложение......................................................................

---

---

Comments

Выдаёт пустой результат в конце.

---

Не спорьте с автором ответа, он тешит своё "я" пользуясь тем, что Вы не указали язык программирования и его версию. Таких тут уже было немало. Они приходят... и быстро уходят.

---

А где написано, что должен быть какой-то результат?

---

Пожалуйста, не надо мне указывать, что делать, и чего не делать.

---

Хватит уже бегать по моим ответам и комментировать, вставляя свои 5 копеечек

---

Надо

---

Пробовал всё выводить - ошибка. Паскаль изучаю совсем недавно...

---

приложил с комментариями, проще никак. если это не понимаешь, значит изучай паскаль

---

Не совсем понимаю код, по-проще разобрать его можно? Только изучаю паскаль.

---

Нужен результат - выведи массивы, которые получились