Цитата:
Сообщение от Skuttbin
Введите три числа и выведите их в строчку в центре экрана: самое большое число красным цветом, самое маленькое синим цветом, среднее по величине желтым цветом.
|
Да пожалуйста:
Код:
Uses CRT;
Const
Colors:Array[1..3] of Byte=(4,14,1);
Var
A:Array[1..3] of Integer;
d:Integer;
i,j:byte;
Begin
ClrScr;
For i:=1 to 3 do
begin
Write('A',i,'= ');
Readln(A[i]);
end;
For i:=1 to 2 do
For j:=1 to 3-i do
if A[j]<A[j+1] then
begin
d:=A[j];
A[j]:=A[j+1];
A[j+1]:=d;
end;
ClrScr;
For i:=1 to 3 do
begin
GotoXY((30+(i-1)*10),12);
TextColor(Colors[i]);
Write(A[i]);
end;
NormVideo;
ReadKey;
End.