Дан массив состоящий из 10 элементов . Вывести на экран сначала элементы , имеющие чётные значения, затем элементы, имеющие нечётные значения .
Дан массив состоящий из 10 элементов . Вывести на экран сначала элементы , имеющие чётные значения, затем элементы, имеющие нечётные значения .
Ответ(ы) на вопрос:
Гость
const
n = 10;
var
a: array[1..n] of real;
i: integer;
begin
for i := 1 to n do
begin
a[i] := random(100) - 50;
write(a[i], ' ');
end;
writeln();
for i := 1 to n do
if i mod 2 = 0 then
write(a[i], ' ');
writeln();
for i := 1 to n do
if i mod 2 = 1 then
write(a[i], ' ');
end.
Не нашли ответ?
Похожие вопросы