Вывести все четные элементы массива в одном окне в строчку, цвет выводимых чисел получить случайным образом

@гзл · Регистрация: 20.03.2014

Author24 — интернет-сервис помощи студентам

Ввести массив из n чисел. Далее требуется:
вывести все четные элементы массива в одном окне в строчку, цвет выводимых чисел получить случайным образом; окончание работы программы при нажатии на клавишу «R»;

@JokeR.BY · 26.02.2016, 12:22

Pascal

uses
    Crt;
var
    a: Array Of Integer;
    i, n: LongWord;
    c: Char;
begin
    Randomize();
    repeat
        Write('Input n (>0) = ');
        ReadLn(n);
    until (n > 0);
    SetLength(a, n);
    for i := 0 to n - 1 do
    begin
        Write('a[', i + 1, ']=');
        ReadLn(a[i]);
    end;
    WriteLn; WriteLn;
    TextColor(Random(16));
    for i := 0 to n - 1 do
        if (Not Odd(a[i]))
        then
            Write(' ', a[i]);
    WriteLn; WriteLn;
    repeat
        c := ReadKey();
    until (c = 'R');
end.

@гзл 0 / 0 / 4 Регистрация: 20.03.2014 Сообщений: 221
		1
	Вывести все четные элементы массива в одном окне в строчку, цвет выводимых чисел получить случайным образом 23.02.2016, 18:06. Показов 1744. Ответов 1 Метки нет (Все метки) Ввести массив из n чисел. Далее требуется: вывести все четные элементы массива в одном окне в строчку, цвет выводимых чисел получить случайным образом; окончание работы программы при нажатии на клавишу «R»; 0

	26.02.2016, 12:22

Вывести все четные элементы массива в одном окне в строчку, цвет выводимых чисел получить случайным образом

Решение