Дана матрица размера М х N'. В каждом столбце матрицы найти максимальный элемент. Язык паскаль
10-11 класс
|
var
A:array[1..100,1..100] of integer;
MAX, i,j,m,n:integer;
begin
randomize;
MAX:=-32000;
Readln(m,n);
Writeln('Исходная матрица:');
for i:=1 to m do
for j:=1 to n do
begin
a[i,j]:=random(10);
writeln('A[',i,',',j,']=',a[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
if A[i,j]>MAX then
MAX:=A[i,j];
Writeln('MAX[',i,']',MAX);
MAX:=-32000;
end;
end.
Другие вопросы из категории
ц которой проведена касательная к окружности а через другой-секущая паралельная касательной
и то же самое вариант-19))
условный оператор "If", на языке Паскаль.
восьмеричную и шестнадцатеричную системы счисления.
Читайте также
2)дана матрица размерами N * N. Поменять местами столбец с максимальным и столбец содержащий минимальное количество нулевых элементов. Использовать три процедуры (заполнение, смена, вывод).
1–12, введенное с клавиатуры (1 — январь, 2 — февраль и т. д.). Вывести название соответствующего времени года («зима», «весна», «лето», «осень»).
2, Напишите программу, реализующую следующие вычисления. Дана матрица размера M x N (числа вводятся с клавиатуры). Для каждого столбца матрицы найти произведение его элементов. Полученные значения вывести в текстовый файл.
3, Напишите программу с использованием функции CircleS(R) вещественного типа, находящей площадь круга радиуса R (R — вещественное). С помощью этой функции найти площади трех кругов с данными радиусами. Площадь круга радиуса R вычисляется по формуле S = πR2.
4, Напишите программу, реализующую следующие вычисления. Дано целое число N (1≤N≤26), введенное с клавиатуры. Вывести N первых прописных (то есть заглавных) букв латинского алфавита.
Найти наименьшие элементы в каждом столбце матрицы Х(5,5) и переписать их в одномерных массив А.В массиве А вычислить сумму элементов,стоящих на четных местах и произведение элементов,стоящих на нечетных местах.Массив А,сумму и произведение вывести на экран
Если можно, то с объяснениями, пожалуйста. Заранее благодарна!