Курсовая работа: Программы в среде Turbo Pascal
y1:=y1+1;
for i:=1 to n do
begin
writeln;
for k:=1 to n do
begin
b[i,k]:=a[i,k]/max[k];
write (B[i,k]:5:2);
end;
end;
readkey;
end;
{END OF ZADAN2*******************************************}
begin
Forma1;
clrscr;
second:=0;
while second <> 3 do
begin
Menu;
readln(second);
case second of
1: zadanie1;
2: zadanie2;
3: exit;
end;
end;
end.