Другие языки программирования и технологии
Найти минимальный элемент в матрице
Программа определяет минимальный элемент в матрице 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.
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.
какой язык программирования
если Паскаль, примени эту программу
{Составьте программу вычисления максимального элемента
и его индексов третьего столбца матрицы 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.
если Паскаль, примени эту программу
{Составьте программу вычисления максимального элемента
и его индексов третьего столбца матрицы 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.
Олег Кандыба
Нужен минимальный элемент матрицы, а не 3 тельца максимальный!!!
минимальный элемент это пиксель, но на выводимом экране пикселей может быть больше чем на основной матрице, вот она и умножает
Похожие вопросы
- Дано множество некоторых целых положительных чисел. Найти минимальный элемент множества.
- как решить? Найти сумму элементов прямоугольной матрицы X(n,m), находящихся по периметру этой матрицы. язык: С++
- задача в pascale. дан массив. Найти минимальный элемент и отсортировать все элементы стоящие после него.
- Найти сумму элементов квадратной матрицы ниже главной и побочной диагонали.. Банктик получается. C++ ,Pascal
- задан массив(с++) n*m нужно найти минимальный элемент в каждой строчке, а затем среди них максимальный
- Как а в ассемблере найти минимальный элемент массива?
- 1.Заполнить массив случайными числами. Вывести элементы массива на экран. Заменить все его минимальные элементы нулями.
- кто может сделать прогу в C++ которая поменяет местами в каждом столбце минимальный и максимальные элементы в матрице??
- Нужен код программы для Осуществления циклического сдвига элементов прямоугольной матрицы на n элементов вправо в с#
- кто-нибудь знает как поменять местами столбцы с максимальным и минимальным элементами матрицы (в паскале), очень нужно..