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

UptoLike

ВУЗ: 

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

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

Рубрика: 

139
writeln('Массив 5x5.Введите числа <5.');
writeln;
until b=true;
k:=a[e,s];
a[e,s]:=a[f,g]; {перестановка элементов}
a[f,g]:=k;
writeln('измененная матрица');
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:3); {вывод результата}
writeln;
end;
end.
Пример 7.27. В двумерном массиве найти сумму максимального и
минимального элементов. Если она меньше 0, тогда все отрицательные
элементы матрицы, лежащие выше главной диагонали, заменить на нули.
program konst1;
var
a:array[1..6,1..6] of integer;
f:text; { текстовый файл }
max,min,i,j,p:integer;
begin
assign(f,'fmas2.txt');
reset(f);
writeln('В двумерном массиве найти сумму макс. и мин. элемента,');
writeln('если
она меньше 0, тогда все отрицательные элементы матрицы,');
writeln(' лежащие выше главной диагонали, заменить на нули.');
writeln(' Исходная матрица');
for i:=1 to 6 do
for j:=1 to 6 do
read (f,a[i,j]); {считывание массива из файла}
for i:=1 to 6 do
begin
for j:=1 to 6 do
write(a[i,j]:3); {вывод массива в матричной форме}
writeln;
end;
writeln;
max:=a[1,1];
for i:=1 to 6 do

Страницы