Задачка.

[Dodje]

Задачка.

Нужно раскрасить в зеленый цвет первый нечетный элемент массива в паскале.
Я вот пробовал делать,но не получается:он полностью раскрашивал массив,ну и следующие надписи,что выводились.
Помогите пожалуйста..

 

[kreol]

покажите ваш пример...

 

[Dodje]

program lol;
uses crt;
type mas = array [1..10] of integer;
var a:mas;
	i,k,m,l:integer;{k-кол-во нечетных символов,m-переменная к первой нечетной,l-номер переменной}
begin
clrscr;
k:=0;
randomize;
for i:=1 to 10 do begin
a[i]:=random(21)-5;
write(a[i]:6)
end;
for i:=1 to 10 do begin
if a[i] mod 2<>0 then
k:=k+1;
end;
writeln('кол-во нечетных значений массива',k);
for i:=10 downto 1 do begin
if a[i] mod 2<>0 then
m:=a[i];
l:=i;
end;
i:=1;
repeat
textcolor(9);
i:=i+1;
until i<l
if i:=l then begin
textcolor(4);
end;
i:=l+1;
repeat
textcolor(9);
i:=i+1;
until i<=10;
for i:=1 to 10 do begin
write(a[i]:6);
end;
end.

как-то так...

 

[Dodje]

Никто не посмотрит?А то завтра уже оч нужно!

 

[Vladimir_S]

Никто не посмотрит?А то завтра уже оч нужно!

Да пожалуйста. Только чего Вы там понакрутили - это же Боже мой с пряником! Задачка-то - всего-ничего:

program lol;
uses crt;
var
 a:array [1..10] of integer;
 i:integer;
 b:boolean;
begin
 clrscr;
 randomize;
 b:=true;
 textcolor(7);
 for i:=1 to 10 do
  begin
   a[i]:=random(21)-5;
   If ((a[i] mod 2)<>0) and b then
    begin
     b:=false;
     textcolor(2);
     write(a[i]:6);
     textcolor(7);
    end
   else
    write(a[i]:6)
  end;
 readln
end.

 

[Dodje]

Спасибо)