Методические указания по программированию на языке Pascal. Юшков С.А - 11 стр.

UptoLike

Текст программы
Program Matr;
Var Elem:array[1..9,1..9] of real;
Min,Max:array[1..9] of real;
i,k,col:integer;
s:real;
LM:text; {file of string[20]}
Begin
assign(LM,’D:\matr.txt’); {Открытие файла для записи. Процедура assign
устанавливает соответствие между обозначением файла( логическим
файлом), используемым в программе, и названием реального физического
файла( или устройством). Оператором rewrite открывается логический файл
для записи в него. После окончания работы файл закрывается оператором
close.}
rewrite (LM);
for i:=1 to 9 do
for k:=1 to 9 do
Elem[i,k]:=i*sin(k);
for i:=1 to 9 do
begin
Max[i]:=Elem[i,1];
for k:=2 to 9 do
коне
ц
K=1
Min
[
k
]
K=K+1
K>9