Program Colors;uses crt;var red,green,blue,yellow:string;beginTextcolor(4);clrscr;gotoxy(30,8);red:='Red';writeln(red);gotoxy(30,9);Textcolor(2);green:='Green';writeln(green);gotoxy(30,10);Textcolor(1);blue:='Blue';writeln(blue);gotoxy(30,11);textcolor(14);yellow:='Yellow';writeln(yellow);end.
Если я так понял,то так.Работы то на 5 минут...
Клавиша Caps Lock включает.
Решение смотри во вложении, выполнено в Excel'е.
Program cl;
var a:array[1..50] of integer;
i,k,s:integer;
begin
randomize;
for i:=1 to 50 do
begin
a[i]:=random(50)-20;
write(a[i],' ');
end;
writeln;
for i:=1 to 50 do
begin
if a[i]>0 then k:=k+1;
if a[i]<0 then s:=s+a[i];
end;
writeln('k=',k);
writeln('s=',s);
readln;
end.