Дана матрица размера 5 x 9. Найти суммы элементов всех ее нечетных столбцов - Pascal ABC

  1. Дана матрица размера 5 x 9. Найти суммы элементов всех ее нечетных столбцов


textual

Код к задаче: «Дана матрица размера 5 x 9. Найти суммы элементов всех ее нечетных столбцов - Pascal ABC»

var i, j, k, s: integer;
    a: array [1..5, 1..9] of integer;
begin
  randomize;
  writeln('Исходная матрица:');
  for i := 1 to 5 do
    begin
      for j := 1 to 9 do
        begin
          a[i, j] := -99 + random(199);
          write(a[i, j]:4)
        end;
      writeln
    end;
  writeln('Суммы элементов нечётных столбцов:');
  for j := 0 to 9 div 2 do
    begin
      k := j * 2 + 1;
      s := a[1, k];
      for i := 2 to 5 do s := s + a[i, k];
      writeln('S(', k, ') = ', s)
    end;
  readln
end.

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

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



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

  1. Написать программу, которая проверяет, является ли квадратная матрица симметричной относительно главной диагонали. Входные данные В первой строке записаны через пробел размер квадратной матрицы N (количество строк равно количеству столбцов) ( 1 ≤ N ≤ 100 ). В следующих N строках записаны строки матрицы, в каждой – по N натуральных чисел, разделённых пробелами. Выходные данные Программа должна вывести слово 'YES', если матрица симметричная, и слово 'NO', если матрица несимметричная.

  1. Доброго времени суток! С толкнулся вот с такой задачей:"В прямоугольной матрице выявить все подматрицы,в углах которых расположены элементы, сумма цифр которых одинакова.".Думаю над этой задачей уже дня 2, читал много форумов, но к сожалению моих знаний недостаточно чтобы хоть что нибудь понять, а работу скоро сдать нужно.Надеюсь на вашу помощь!Заранее спасибо!

  1. Всем доброго времени суток! Дана (по строкам) действительно матрица размером 7х4. Переставляя ее строки и столбики, добиться того, чтобы наибольший элемент (один из них) попал в верхний левый угол. Нужен код программы

  1. Требуется помощь по двумерным массивам в PascalABC. Никак не могу составить программу. Задание такое: "Сформирвать квадратную матрицу порядка n по заданному массиву" 1 0 0 0 0 6 0 2 0 0 5 0 0 0 3 4 0 0 0 0 3 4 0 0 0 2 0 0 5 0 1 0 0 0 0 6

  1. Задание. Составить подпрограмму подсчета суммы значений элементов в одномерном массиве.С помощью этой подпрограммы подсчитать суммы элементов строк произвольно заданной двухмерной матрицы и вывести номер строки с максимальной суммой.Составить блок-схему. Заранее огромное спасибо!

  1. Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент

  1. Заданная матрица А размерности 3 х 5. Найти квадрат разницы количества положительных и отрицательных элементов матрицы.

  1. Определить, является ли заданная целая квадратная матрица шестого порядка симметричной (относительно главной диагонали).

  1. Дана прямоугольная матрица A(nxm). Заменить наименьший элемент каждой строк, начиная со второй, наибольшим элементом предыдущей строки. Нашел такой код, не получилось его подправить, постоянно выдает ошибки(нужно было добавить заполнение и оформление, по словам автора, что и не вышло)