Дан целочисленный массив размером N. Вывести вначале все содержащиеся в данном массиве...

0 голосов
91 просмотров

Дан целочисленный массив размером N. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем - все нечетные в порядке убывания их индексов
(если можно еще блок схему(не обязательно))


Информатика (1.5k баллов) | 91 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Program z1;
const N=10;
var
i,k:integer;
a:array [1..N] of integer;
begin
for i:=1 to N do
readln (a [i]);
for i:=1 to N do
begin
if (a [i] mod 2 = 0) then
write (a [i]);
end;
for k:=10 downto 1 do
begin
if (a [k] mod 2 = 1) then
write (a [k]);
end;
end.

(1.2k баллов)