Задан одномерный массив K[n]. Создать одномерные массивы L и M. Массив L будет содержать четные элементы массива K, а массив M - нечетные.
Ответы на вопрос
Ответил danielchb
0
Приложение......................................................................
Приложения:
Ответил runosl
0
Пробовал всё выводить - ошибка. Паскаль изучаю совсем недавно...
Ответил Аноним
0
Не спорьте с автором ответа, он тешит своё "я" пользуясь тем, что Вы не указали язык программирования и его версию. Таких тут уже было немало. Они приходят... и быстро уходят.
Ответил danielchb
0
Хватит уже бегать по моим ответам и комментировать, вставляя свои 5 копеечек
Ответил Аноним
0
Пожалуйста, не надо мне указывать, что делать, и чего не делать.
Ответил danielchb
0
Надо
Ответил alamar
0
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.
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.
Приложения:
Ответил Аноним
0
Я модератор данного предмета и мое мнение в данном случае является решающим.
Ответил danielchb
0
Из-за того, что вы модератор этого сайта ваше мнение по поводу программирования считается более верным. Т.е. из-за того, что вы модератор, вы лучший специалист? Интересненько, продолжайте
Ответил Аноним
0
Получается именно так - мое мнение считается более весомым. Если Вас это не устраивает, Вы можете или покинуть этот Сервис или написать жалобу Администрации
Ответил danielchb
0
Я думал вы поймете мой сарказм. Как можно вообще соглашаться с той мыслью, что статус модератора на портале для помощи школьникам делает вас лучшим программистом. Это клиника. А жалобу я обязательно напишу, о вашей некомпетентности, не волнуйтесь. Главное - не приставайте ко мне, пожалуйста, поднадоели.
Ответил Аноним
0
Да, напишите. А за обсуждение действий модератора в подобном ключе отдохните 15 минут.
Новые вопросы