Question

Ввести массив, состоящий из 14 элементов целого типа. Сначала вывести четные элементы массива, затем нечетные Подсказка: нужны два цикла

Answer 1

program massiv;

const n=14;

var mas:array[1..n]of integer; x:integer;

begin

for x:=1 to n do mas[x]:=random(1000000);

writeln('Чётные элементы массива');

for x:=1 to n do

if(mas[x] mod 2=0)then writeln(mas[x]);

writeln('Нечётные элементы массива');

for x:=1 to n do

if(mas[x] mod 2=1)then writeln(mas[x]);

end.

P.s: предположил, что язык Паскаль подойдёт.

Если необходимо заполнить массив вручную, замените пятую строчку (writeln('Заполните массив');for x:=1 to n do readln(mas[x]);)