Введите три числа и выведите их в строчку в центре экрана - Turbo Pascal

Формулировка задачи:

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

Код к задаче: «Введите три числа и выведите их в строчку в центре экрана - Turbo Pascal»

textual
Program Min_Max;
uses crt;
var a:array[1..3] of integer;
i,min,max:integer;
begin
  Textcolor (12);
   For i:=1 to 3 do
     Begin
       A[i]:=random(100);
       Write(A[i]:4);
     End;
  Writeln;
  min:=a[1];
  for i:=1 to 3 do
   begin
      if a[i]>max then
       max:=a[i];
      if a[i]<min then
       min:=a[i];
  end;
  write('                                   ');
  for i:=1 to 3 do
   begin
      if a[i]=max then
       Begin
        textcolor(12);
        write(max:3);
       End;
      if a[i]=min then
         Begin
          textcolor(9);
          write(min:3);
         End;
      if (a[i]<>min) and (A[i]<>max) then
           Begin
            textcolor(14);
            write(A[i]:3);
           End;
       End;
 readln;
end.

7   голосов, оценка 3.714 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы