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

UptoLike

ВУЗ: 

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

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

Рубрика: 

180
type arr=array[1..5,1..5] of integer;
f:text;
procedure mas(var a:arr);
implementation
Procedure mas; {процедура поиска минимального и максимального
элемента}
var
i,j,Min,Max:integer;
begin {поиск max. и min. элементов}
Max:=A[1,1];
Min:=A[1,1];
For i:=1 to 5 do
For j:=1 to 5 do
begin
If A[I,j]>=Max
then Max:=A[I,j];
If A[i,j]<=Min
then Min:=A[i,j];
end;
end;
begin {раздел инициализации}
assign(f,'love.dat');
rewrite(f);
End.
Программа, использующая модуль LOV_4M.
Program rifle; {программа использует модуль с разделом
инициализации}
uses lov_4m; {подключение модуля lov_4m}
var
A : arr; {массив описан в модуле lov_4m}
B :array[1..5,1..5] of integer;
I,j:byte;
Z,P : integer;
Max,Min:real;
Begin
Randomize;
Writeln;
Writeln(' Задача. Заменить все отрицательные элементы ' );
Writeln(' матрицы А(5,5) ');

Страницы