Помогите Переделать Прогу

  • Автор темы bestswimer
  • Дата начала
B

bestswimer

Гость
#1
надо переписать прогу с матрицей (сделать 2е проги)
сначала с процедурами
а втораю с функциями

народ выручайте позарез как надо

задание:
сост прогу формирования вектора елементы которого = среднему значению положительных елементов строки матрицы

готовая с матрицами
program TP5;
uses crt;
type
mat=array [1..100,1..100] of real;
var
a:mat;
n,m,i,j,k:integer;
s,src:real;
Begin
clrscr;
writeln('введите количество строк');
readln(n);
writeln('введите количество столбцов');
readln(m);
clrscr;
for i:=1 to n do
for j:=1 to m do
begin
Write('введите a[',i,',',j,']','=');
readln (a[i,j]);
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then
begin
s:=s+a[i,j];
k:=k+1;
end;
for i:=1 to n do
BEGIN
if k>0 then
src:=s/k
else src:=0;
END;
clrscr;
writeln('начальные данные');
writeln('n=',n);
writeln('m=',m,#10#13,'матрица а');
for i:=1 to n do
begin
for j:=1 to m do
write(' ',a[i,j]:6:3);
writeln
end;
writeln('результаты решения');
writeln('сумма положительных елементов s=',s:6:3);
writeln('количество положительных елементов k=',k);
writeln('src=',src:6:3);
END.