Версия для печати темы

Автор: craper 1.02.2017 1:31

Ребят, нужна ваша помощь! Есть задача Определить и напечатать количество ненулевых элементов в каждой
колонке заданной матрицы. Для каждой строки заданной матрицы определить и
напечатать сумму элементов, принадлежащих строкам с четными номерами

Нужно реализовать с помощью процедур и функций! Спасите, плиз)

Автор: Федосеев Павел 1.02.2017 23:52

Я собрал не очень аккуратную программку - чтобы вас не заподозрили в плагиате

program test;

const
  n = 8;
type
  mas = array [1..n, 1..n] of integer;
var
  i, j: integer;
  m: mas;

  procedure Nenul;
  var
    i, j, k: integer;
  begin
    for j := 1 to n do
    begin
      k := 0;
      for i := 1 to n do
        if m[i, j] <> 0 then
          Inc(k);
      writeln('v ', j, ' kolonke ', k, ' nenulevyh elementov');
    end;
  end;

  function Sum(i: integer): integer;
  var
    S, j: integer;
  begin
    S := 0;
    for j := 1 to n do
      S := S + m[i, j];
    Sum := S;
  end;

begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      m[i, j] := -3 + random(7);
      Write(m[i, j]: 4);
    end;
    writeln;
  end;

  {Определить и напечатать количество
  ненулевых элементов в каждой
  колонке заданной матрицы.}
  Nenul;

  {Для каждой строки заданной матрицы
   определить и напечатать сумму элементов,
   принадлежащих строкам с четными номерами}
  for i := 1 to n do
    if not odd(i) then
      writeln('Summa elementov v ', i, ' stroke ', Sum(i));
end.