Если максимальный элемент матрицы положителен, то найти количество нулевых элементов каждого столбца - Turbo Pascal

  1. Всем привет. Условие: Есле максимальный элемент массива a[i,j] положителен, то найти количество нулевых элементов каждого столбца иначе удвоить отрицательные элементы Вот мой код:


textual

Код к задаче: «Если максимальный элемент матрицы положителен, то найти количество нулевых элементов каждого столбца - Turbo Pascal»

program pr1;
 
uses
  crt;
 
var
  a: array [1..100, 1..100] of integer;
  n, m, i, j, k, max: integer;
 
begin
  clrscr;
  write('n=');
  readln(n);
  write('m=');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
    begin
      write('a[',i,',', j,']=');
      readln(a[i, j]);
    end;
 
  for i := 1 to n do
    for j := 1 to m do
        if a[i, j] > max then
          max := a[i, j];
 
  if max>0 then
  begin
    for j:=1 to m do
    begin
      k:=0;
      for i:=1 to n do
        if a[i,j]=0 then inc(k);
      writeln('Г‚ ',j,'-Г¬ ñòîëáöå ',k,' Г*óëåé');
    end;
 
  end else
  begin
    writeln('Ïîëó÷åГ*Г*Г*Гї Г¬Г*òðèöГ*:');
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        a[i,j]:=2*a[i,j];
        write(a[i,j]:4);
      end;
      writeln;
    end;
  end;
  readln;
end.

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

14   голосов, оценка 3.929 из 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). Отсортировать его элементы методом просеивания.