надо переписать прогу с матрицей (сделать 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.
|
|
|
|
Ну если код рабочий, то объяви процедуру (функцию), в ней весь код, потом в теле основной программы вызови функции..что сложного то?
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
