Цитата:
Сообщение от Андрей Романюк
вот, это ,конечно, в Москву через Китай, но по другому не смог.....и то не правильно, как мне теперь первый элемент раскрасить?( он мне только последний красит(
|
Да уж... кошмар! И чего, спрашивается, Вы тут понакрутили? Боюсь, без поллитры никак не разобраться, а я на работе... В общем, вот (если Вы правильно сформулировали задачу):
Код:
uses crt;
type
Mas = array[1..100] of integer;
var
A:mas;
b,i,s: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;
s:=1;
for i:=2 to b do
if A[i]>A[s] then s:=i;
for i:=1 to b do
begin
if (i>s) and (A[i]>0) then
textcolor(red)
else
textcolor(black);
write(A[i]:5);
end;
readln;
NormVideo;
end.
И всего-то.