Алгоритмы и программы. Афанасьева Т. В - 181 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

181
Writeln(' на 0, если сумма Min. и Max. эл–ов этой ');
Writeln (' матрицы');
Writeln(' меньше произвольного числа P,которое ');
Writeln (' задается с клавиатуры. ');
Writeln;
Writeln;
Write(' Введите любое целое число:P=');
READLN(P);
writeln(' Данная матрица ');
writeln;
For I:=1 to 5 do
begin
For J:=1 to 5 do
begin
A[I,j]:=Random(55); {заполнение матрицы}
A[i,j]:=A[i,j]–50;
Write(A[i,j]:3,' ');
Writeln(F,A[I,j]); {запись в файл, описанный и открытый в }
{ модуле lov_4m}
end;
Close(F);
end;
mas(a); {обращение к процедуре mas}
Reset(F); {открытие файла для считывания}
writeln(' Полученная матрица ');
writeln;
For I:=1 to 5 do
begin
For j:=1 to 5 do
begin
READLN(F,A[I,j]); {считывание из файла}
If (Min+Max<P) and (A[I,j]<0)
then
A[I,j]:=0
Write(A[I,j]:3,' ');
end;
writeln;
end;
Close(F); {закрытие файла}
End.
Задания для самостоятельного выполнения

Страницы