Как написать модуль с заданной процедурой и поключить его к программе? - Turbo Pascal

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

Есть процедура на Pascal (посчитует суму в кажой строке матрицы)
uses crt;
 
var a:byte;
//-------Процедура-------\
procedure Sum(s:integer);
var i,j,n,m:byte;
a:array[1..10,1..10] of integer;
begin
For i:=1 to 10 do
Begin
For j:=1 to 10 do
Begin
a[i,j]:=random(100);
write(a[i,j]:4);
End;
writeln;
End;
For i:=1 to 10 do
Begin
s:=0;
For j:=1 to 10 do
if j mod 2 = 0 then s:=s+a[i,j];
writeln('Сумма в ',i,' строке = ',s);
End;
readln;
End;
 
//-------Программма-----\
begin
textcolor(Yellow);
Sum(a);
end.
Как написать ее с помощью модуля и поключить к программе?

Код к задаче: «Как написать модуль с заданной процедурой и поключить его к программе? - Turbo Pascal»

textual
unit mdl;
interface
const n=10;
type mtr=array[1..n,1..n] of integer;
procedure matrix(var a:mtr);
procedure Sum(a:mtr;i:byte);
implementation
procedure matrix;
var i,j:byte;
begin
writeln('Матрица');
for i:=1 to 10 do
 begin
  for j:=1 to 10 do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
procedure sum;
var j:byte;
    s:integer;
begin
s:=0;
for j:=1 to n do
if j mod 2 = 0 then s:=s+a[i,j];
writeln('Сумма элементов с четными номерами в ',i,' строке=',s);
end;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы