Обработка одномерных массивов. Выделить красным элементы, расположенные между первым и последним четным элементом.

27.03.2012, 09:43. **Показов** 1305. **Ответов** 1

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

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

@Фаер · 27.03.2012, 10:38

Pascal

Uses crt;
Var A:array[1..15] of integer; i,x,y:integer;
Begin
ClrScr; Randomize;
For i:=1 to 15 do
 Begin
  A[i]:=random(51)-25;{генерация произвольных значений элементов массива}
  If (odd(A[i])=false) and (x=0) then x:=i;{поиск 1-го четного элемента}
 End;
For i:=15 downto 1 do 
 If (odd(A[i])=false) and (y=0) then y:=i;{поиск 1-го четного элемента с конца}
For i:=1 to 15 do
 Begin
  If (i>=x) and (i<=y) then TextColor(4) else TextColor(8);{"раскраска" элементов}
  Write(A[i]:4);
 End;
Readln;
End.

Murgl Flor
		1
	Обработка одномерных массивов. Выделить красным элементы, расположенные между первым и последним четным элементом. 27.03.2012, 09:43. Показов 1305. Ответов 1 Метки нет (Все метки) Заполнить одномерный массив из 15 элементов случайными целыми числами. Вывести на экран массив, раскрасив красным цветом элементы, расположенные между первым четным и последним четным элементом.

	27.03.2012, 10:38

Обработка одномерных массивов. Выделить красным элементы, расположенные между первым и последним четным элементом.

Решение