Выведите на экран одномерный массив, раскрасив в нем синим цветом элементы, кратные 4

@Blaze225 · Регистрация: 17.05.2015

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

Выведите на экран одномерный массив, раскрасив в нем синим цветом элементы, кратные 4.

@JuriiMW · 20.05.2015, 11:02

Pascal

uses
  Arrays, CRT;
  
var
  A : array of Integer;
  
begin
  TextColor(14);
  var N := ReadInteger('N =');
  A := CreateRandomIntegerArray(N, 1, 99);
  TextColor(7);
  for var i := 0 to N-1 do
    if A[i] mod 4 = 0 then
      begin
        TextColor(9);
        Print(A[i]);
        TextColor(7);
      end
    else
      Print(A[i]);
  WriteLn;
end.

@Blaze225 0 / 0 / 0 Регистрация: 17.05.2015 Сообщений: 16
		1
	Выведите на экран одномерный массив, раскрасив в нем синим цветом элементы, кратные 4 19.05.2015, 23:25. Показов 2118. Ответов 1 Метки нет (Все метки) Выведите на экран одномерный массив, раскрасив в нем синим цветом элементы, кратные 4. 0

	20.05.2015, 11:02

Выведите на экран одномерный массив, раскрасив в нем синим цветом элементы, кратные 4

Решение