Ребят, нужна ваша помощь! Есть задача Определить и напечатать количество ненулевых элементов в каждой колонке заданной матрицы. Для каждой строки заданной матрицы определить и напечатать сумму элементов, принадлежащих строкам с четными номерами
Нужно реализовать с помощью процедур и функций! Спасите, плиз)
Федосеев Павел
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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.