Нужно переделать в Функции и Процедуры

@Vlad keno · Регистрация: 03.12.2018

Студворк — интернет-сервис помощи студентам

Нужно переделать программу через Функцию и Процедуру
Вот что делает программа:
Определить и напечатать количество ненулевых элементов в каждой колонке заданной матрицы. Составить и напечатать матрицу, каждый элемент которой исчисляется как разница значений соответствующего элемента заданной матрицы и минимального элемента строки.
Вот код:

Pascal

var
  F: array[1..10, 1..10] of integer;
  k, l: integer;
  i, j: byte;
 
begin
  writeln('Матрица F:');
  randomize;
  for i := 1 to 10 do
  begin
    write('[');
    for j := 1 to 10 do
    begin
      F[i, j] := random(10) - 5;
      write(F[i, j]:5, ' ');
    end;
    write(']');
    writeln;
  end;
  
  begin
    for j := 1 to 10 do
    begin
      l := 0;
      for i := 1 to 10 do
        if f[i, j] <> 0 then
        begin
          l := l + 1;
        end;
      writeln(' Количество ненулевых - ', l)
    end;
  end;
  
  
  begin
    for i := 1 to 10 do
    begin
      k := f[i, 1];
      for j := 1 to 10 do
        if f[i, j] < k then
          k := f[i, j];
      write('[');
      for j := 1 to 10 do
      begin
        f[i, j] := f[i, j] - k;
        write(f[i, j]:4, ' ');
      end;
      write(']');
      writeln;
    end;
  end;  
end.

Добавлено через 7 минут
И если можно, создать собственный модуль, который реализую работу процедур и функций, созданных при выполнении лабораторной работы. Также необходимо создать основную программу, которая использует процедуры и функции модуля.

Опции темы