Найти наименьший элемент каждого столбца - Turbo Pascal

  1. Обработать матрицу, элементами которой являются случайные значения функции F(X). Вывести на экран исходную матрицу и полученные результаты. В программе использовать подпрограммы. Задание(N<20; M<20) Для матрицы A[1..M,1..M] найти наименьший элемент каждого столбца и поменять его местами с соответствующим элементом побочной диагонали; вывести матрицу и сумму элементов побочной диагонали. Функция: F(X)=X3+1 -8<X<9 Примечание: (3 - степень x)


textual

Код к задаче: «Найти наименьший элемент каждого столбца - Turbo Pascal»

uses crt;
const n=4;m=4;
var a:array [1..n,1..m] of integer;
i,j,x,min,mini,minj,s:integer;
begin
clrscr;
randomize;
writeln('Matrica : ');
for i:=1 to n do
begin
for j:=1 to m do
begin
x:=random(18)-8; {-8<=x<=9 (17-8) }
a[i,j]:=x*x*x+1;
write(a[i,j]:7);
end;
writeln;
end;
 
for j:=1 to n do
begin
min:=maxint;
for i:=1 to m do
if (a[i,j]<min) then
begin
        min:=a[i,j];
        mini:=i;
        minj:=j;
end;
writeln('Min el v ',j,' stolbce = ',min);
x:=a[mini,minj];
a[mini,minj]:=a[n+1-j,j];
a[n+1-j,j]:=x;
end;
writeln;
s:=0;
writeln('Poluchennaya matrica : ');
for i:=1 to n do
begin
s:=s+a[i,n-i+1];
for j:=1 to m do
begin
write(a[i,j]:7);
end;
writeln;
end;
writeln('Summa na pobochnoy = ',s);
readkey;
end.

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

11   голосов, оценка 3.818 из 5



Похожие ответы
  1. Дана матрица 7x7. Определить суммы всех элементов матрицы, лежащих на диагоналях. Помогите сделать, пожалуйста! Заранее спасибо ОГРОМНОЕ!

  1. В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!

  1. Пусть дана вещественная матрица размером n*m. Найдите среднее арифметическое наибольшего и наименьшего значений её элементов, расположенных ниже главной диагонали.- это условие. Напиши пожалуйста программу!

  1. Ввести с клавиатуры одномерный массив из 5 чисел , подсчитать сумму элементов больше нуля и вывести результат на экран монитора.

  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

  1. 1) Написать функцию с параметрами, обеспечивающую вычисление суммы элементов, находящихся ниже главной диагонали.

  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

  1. Доброго времени суток, хотел бы попросить у Вас помощи в решение задач в turbo pascal:Разработка в среде Turbo Pascal программы формирования и обработки элементов одномерного массива: 1) Сформируйте двухмерный целочисленный массив S(4x9), используя генератор случайных чисел на интервале (-10, 6). Элементы массива вывести на экран в виде матрицы. 2) Преобразуйте массив S в одномерный массив X. Полученный массив вывести на экран. 3) Вычислите среднегеометрическое значение каждых третьих элементов последней четверти массива X. 4) Среди четных по значению элементов массива X определите наименьший. 5) упорядочить принадлежащие интервалу [a/2;b/2] элементы первой половины массива X по возрастанию квадратов значений. Заранее благодарен за помощь.

  1. Дана целочисленная матрица размерности (nxn ). 1. Если элементы, стоящие на главной диагонали являются четными числами, то к каждому максимальному элементу столбца добавить минимальный элемент соответствующей строки. В противном случае матрицу оставить без изменения.

  1. Дан целочисленный вектор А(n). Отсортировать его элементы методом просеивания.