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

Формулировка задачи:

Дана матрица размера 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


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

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

Источник
Похожие ответы