Цитата:
Сообщение от Андрей Романюк
эммм...да, с заданием я накасячил....другой вариант написал, моя "программа" сделана по другому условию:
ввести массив и раскрасить зеленым первый положительный элемент массива, а последний положительный элемент раскрасить синим)))
(именно по этому условию мне нужна помощь)
|
Еще проще:
Код:
uses crt;
type
Mas = array[1..100] of integer;
var
A:mas;
b,i,i1,i2:integer;
begin
textbackground(white);
clrscr;
textcolor(black);
write('Введите кол-во символов массива: ');
readln(b);
writeln;
writeln;
randomize;
for i:=1 to b do
begin
A[i]:=random(200)-100;
write(A[i]:5);
end;
writeln;
writeln;
i1:=0;
Repeat
Inc(i1);
Until A[i1]>0;
i2:=b+1;
Repeat
Dec(i2);
Until A[i2]>0;
for i:=1 to b do
begin
if i=i1 then
textcolor(green)
else
if i=i2 then
textcolor(blue)
else
textcolor(black);
write(A[i]:5);
end;
readln;
NormVideo;
end.
Ну и какие еще будут варианты типа "ах да, на самом деле тут надо..."?