Сформировать массив из минимальных элементов столбцов матрицы - Pascal ABC

  1. Дан массив А(N,M).В каждом столбце найти минимальный элемент. Из полученных значений сформировать одномерный массив.


textual

Код к задаче: «Сформировать массив из минимальных элементов столбцов матрицы - Pascal ABC»

program dev9tb;
uses crt;
const n1=20;n2=20;
type matrix=array[1..n1,1..n2] of integer;
type vector=array[1..400]of integer;
var n,m:integer;
    a:matrix;
    b:vector;
 
procedure RandomMatrix(var a:matrix; var n,m:integer);
var i,j:integer;
begin
write('Введите кол-во строк матрицы ');
readln(n);
write('Введите кол-во столбцов матрицы ');
readln(m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(30)-15
end;
 
procedure PrintMatrix(a:matrix; n,m:integer);
var i,j:integer;
begin for i:=1 to n do
begin for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
end;
 
procedure formb(a:matrix;var b:vector; n,m:integer);
var i,j,t,min:integer;
begin
t:=1;
for j:=1 to n do
begin
min:=a[1,j];
for i:=1 to m do
begin
if a[i,j]<min then 
min:=a[i,j];
end;
b[t]:=min;
t:=t+1;
end;
write('Массив B: ');
for i:=1 to t-1 do
write(b[i],' ');
end;
 
 
 
begin 
RandomMatrix(a,n,m);
writeln('Матрица А: ');
PrintMatrix(a,n,m);
writeln;
formb(a,b,n,m);
writeln();
end.

СДЕЛАЙТЕ РЕПОСТ

6   голосов, оценка 4.167 из 5



Похожие ответы
  1. Проверьте, правильно ли работает программа. А именно PROCEDURE BSr, и правильность передачи переменных в основную программу. ЗАДАНИЕ: Сформировать массив из чисел, больших среднего.

  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Помогите исправить ошибку . Задание :Сформировать двумерный массив. Удалить из него строку и столбец, на пересечении которых находится минимальный элемент.

  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). В первом массиве осуществить циклический сдвиг вправо на a позиций, во втором на b, в третьем на c. Нужно сделать через процедуры Заранее благодарю

  1. Добрый вечер! Помогите, пожалуйста! Даны три целочисленных массива длиной n, m, l (заполняются случайными целыми числами). Если количество четных элементов больше, то отсортировать его по возрастанию, иначе по убыванию Обязательно сделать через процедуры Заранее благодарю

  1. Нужно написать прогу плиз) Буду благодарен)) Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не содержащих ни одного нулевого элемента; 2) встречается ли более од¬ного раза максимальное из чисел в заданной матрице.

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. Дан прямоугольный массив целых положительных чисел. Отыскать в массиве строку с наименьшей суммой элементов. Вывести на печать номер строки и сумму ее элементов. Предполагается, что такая строка единственна.