Дан ряд чисел размерностью n, вывести все четные.

program rjad;
const
n = 10; {можно изменить}
var
a : array[1..n] of integer;
a1: array[1..n] of integer;
i, i1 : integer;
begin
randomize; // сбрасываем генератор случ чисел
i1 := 0;
for i := 1 to n do
begin
a[i] := random(50); //заполняем массив случ числами от 0 до 50
if not(odd(a[i])) then // если число четное сразу заполняем второй массив
begin // и считаем сколько четных чисел
i1 := i1 + 1;
a1[i1] := a[i];
end;
write(a[i], ' '); // вывдим начальную последовательность
end;

//ниже выводим получившуюся последовательность
//первоначальная уже выведена
writeln;

for i := 1 to i1 do
write(a1[i], ' ');


readln;
end.
 

Скачать решение.

Вывести на печать все числа до первого 0.

program posled;
const
n = 10;
var
mass : array[1..n] of integer;
i : integer;
begin
randomize;
for i := 1 to n do // заполняем массив
begin
mass[i] := random(50);
write(mass[i], ' ');
end;
writeln;
writeln;

i := 1;
while (mass[i] <> 0) do // выводим до первого нуля
begin
write(mass[i], ' ');
inc(i);
if i = 11 then // либо пока не выведем всё
begin
readln;
exit; // выходим из программы
end;
end;

readln;
end.

Скачать решение.

Вывести на печать все числа до первого 0. Дан массив размерностью N сформировать два массива в один записать эл-ты с неч. номерами в другой с чётными.

program www;
uses
crt;
const
n = 10;
var
mass : array[1..n] of integer;
chet : array[1..n] of integer;
nec : array[1..n] of integer;
i : integer;
a, a1: integer;
begin
randomize;
a := 1; a1 := 1;
for i := 1 to n do
begin
mass[i] := random(20);
if not(odd(i)) then // подсвечиваем вывод и формируем оба массива
begin
textcolor(12);
write(mass[i], ' ');
chet[a] := mass[i];
a := a + 1;
textcolor(7);
end

else
begin
write(mass[i], ' ');
nec[a1] := mass[i];
a1 := a1 + 1;
end;
end;


writeln;
writeln;
writeln('эл-ты с неч. номерами.');
for i := 1 to a1-1 do
write(nec[i], ' ');

writeln;
writeln('Эл-ты с четн. номерами.');
for i := 1 to a-1 do
write(chet[i], ' ');
readln;
end.

Скачать решение.