#include <iostream>
using namespace std;
int main()
{
int m, n;
cin >> m >> n; // ввод m и n
int A[m][n];
// ввод элементов матрицы
for(int i = 0; i < m; i++)
for(int j = 0; j < n; j++)
cin >> A[i][j];
// решение
int B[n], t, s;
for(int j = 0; j < n; j++)
{
int i = 1;
for(i = 1, t = 1, s = A[0][j]; i < m; i++)
if(A[i][j] < s)
s = A[i][j];
else
{
t = 0;
break;
}
B[j] = t;
}
// вывод вектора B
cout << endl;
for(int j = 0; j < n; j++)
cout << B[j] << " ";
return 0;
}
1.
program z1;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
writeln ('Квадратная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(10);
write(a[i,j]:3);
if i=j then s:=s+a[i,j]
end;
writeln;
end;
writeln('Среднее арифметическое элементов расположенных на главной диагонали: ',s/n)
end.
2.
program z2;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,s,sp:integer;
begin
writeln ('Квадратная матрица:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:5);
if i=j then s:=s+a[i,j]
end;
writeln;
end;
for i:= 1 to n do
for j:=1 to n do
if (a[i,j]>0) and (a[i,j]>s/n)then sp:=sp+a[i,j];
writeln('Сумма положительных элементов, превышаюших по величине среднее арифметическое всех элементов расположенных на главной диагонали: ',sp)
end.
3.
program z3;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,m,k:integer;
begin
writeln ('Двумерный массив:');
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:5)
end;
writeln;
end;
m:=a[1,1];
for i:= 1 to n do
for j:=1 to n do
if a[i,j]<m then m:=a[i,j];
writeln ('Минимальный элемент ',m);
k:=0;
for i:= 1 to n do
for j:=1 to n do
if a[i,j]=m then
begin
writeln('Индексы [',i,',',j,']');
k:=k+1;
end;
writeln ('Количество минимальных элементов ',k)
end.
Оформляем и структурируем
Титульный лист
Оглавление
Основной текст
Заключение
Список литературы
Приложения
также необходимо указать источники чтоб не нарушить авторское право