Модуль CRT. Программа по составленной программе.

[Zastiesto]

Работа предусматривает использование модуля CRT. Требуется изменить программу введя многооконный интерфейс. Надо в программе создать 3 окна: одно для вывода текста задания(№№№№№) и автора программы, второе – для ввода,отображения исходных данных, третье – для отображения результатов. При этом необходимо раскрасить экран и выбрать цвет символов. Переход между окнами осуществлять по нажатию на клавишу ENTER с выводом звукового сигнала.

Program B;
const n=5;
type matr=array[1..n,1..n] of integer;
var a:matr;
max,min,i,j:integer;
procedure maxmin(a:matr;c:integer;d:integer);
var i,j:integer;
begin
For i:=1 to n do
begin
For j:=1 to n do
if (j>=i) then
if ((i+j)<=(n+1)) then
if a[i,j]>max then
max:=a[i,j];
end;
c:=min;
For i:=1 to n do
begin
For j:=1 to n do
if (j>=i) then
if ((i+j)>=(n+1)) then
if a[i,j]<min then
min:=a[i,j];
end;
d:=max;
c:=min;
writeln('max=',d,' min=',c);
end;
Procedure vvod(var a:matr);
var i,j:integer;
begin
For i:=1 to n do
For j:=1 to n do
begin
a[i,j]:=random(60)-30;
end;
end;
procedure vuvod(a:matr);
var i,j:integer;
begin
For i:=1 to n do
begin
For j:=1 to n do
write(a[i,j]:4,' ');
writeln;
end;
end;
begin
vvod(a);
vuvod(a);
maxmin(a,max,min);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[rubius2008]

Понадобятся: Readkey, Window, TextColor, TextBackground