Другие языки программирования и технологии

Найти минимальный элемент в матрице

Программа определяет минимальный элемент в матрице D(3,3) и умножает диагональные элементы исходной матрицы на найденный элемент. Количество строк и столбцов, элементы матрицы вводятся с клавиатуры, на дисплей выводится исходная и преобразованная матрица
var i, j, n, mini: integer;
D: array [1..100,1..100] of byte;
begin
write ('n = ');
readln (n);
mini:=255;
for i:=1 to n do
for j:=1 to n do
begin
write ('d[',i,',',j,']=');
readln (d[i,j]);
if d[i,j] < mini then mini :=d[i,j];
end;
writeln ('минимальный элемент = ', mini );
for i:=1 to n do
begin
if odd(n) and (i = n div 2 + 1) then d[i,i]:=d[i,i]
else d[i,i]:=d[i,i]*mini;
d[i,n+1-i]:=d[i,n+1-i]*mini;
end;
for i:=1 to n do
begin
for j:=1 to n do write (d[i,j]:3);
writeln;
end;
end.
Владимир Гаранин
Владимир Гаранин
20 124
Лучший ответ
какой язык программирования
если Паскаль, примени эту программу
{Составьте программу вычисления максимального элемента
и его индексов третьего столбца матрицы A(M, N). }
program massiv;
uses crt;
var
j,i,n,m,max,maxi:integer;
a:array[1..100,1..100] of integer;
BEGIN
randomize;
clrscr;
write('Ввести число строк матрици M--> ');
readln(m);
write('Ввести число столбцов матрици N--> ');
readln(n);
writeln('Исходный массив ');
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(21);
write(a[i,j]:3);
end;
writeln; end;
max:=a[1,3]; maxi:=1;
for i:=2 to m do
if a[i,3]>max then begin
max:=a[i,3]; maxi:=i;end;
writeln('максимальный элемент третьего столбца= ',a[maxi,3]);
writeln('его индексы ',maxi:4,' и 3');
writeln('конец задачи ');
readln;
END.
Максим Шилов
Максим Шилов
95 955
Олег Кандыба Нужен минимальный элемент матрицы, а не 3 тельца максимальный!!!
минимальный элемент это пиксель, но на выводимом экране пикселей может быть больше чем на основной матрице, вот она и умножает

Похожие вопросы