подпрограммы

[nolx]

1.вычисление количества положительных элементов в четных строках матрицы через функцию
2.вычисление сумм положительных и отрицательных элементов и количество отдельных элементов матриц через процедуру

[GetMax]

1.вычисление количества положительных элементов в четных строках матрицы через функцию

Function KolPologit(i,KolStolb:Byte):Byte
Var
   j,Kol:Byte;
Begin
   Kol:=0; 
   For j:=1 to KolStolb do
   If Matr[i,j] > 0 then Inc(Kol);
   KolPologit:=Kol
End;
Begin
  For i:=1 to 5 do
  Begin
     For j:=1 to 5 do
     If (i mod 2 = 0) then
     Writeln('Число положительных элементов в ',i,' строке = ',KolPologit(i,5))
  End;
  Readln
End.

Не проверял

[nolx]

program podprog;
var
a:array[1..20,1..20]of integer;
i,j,n,m,p,r:integer;
procedure pr(const b:a;r,p:integer);
var
b:a
i,j: integer;
begin
p:=0;
r:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin if a[i,j]>0 then p:=p+a[i,j];
if a[i,j]<0 then r:=r+a[i,j];
end;
end;
function fu (const a:integer):integer;
var
p,i,j:integer;
begin
p:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if i mod 2=0 then
if a[i,j]>0 then
p:=p+a[i,j];
fu:=p;
end;
begin
write('N M ? ');
readln(n,m);
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(199)-99;
for i:=1 to n do
begin
for j:=1 to m
do write(a[i,j]:4);
writeln
end;
writeln('positiv: ',fu);
pr;
Writeln('sum positiv: ',p,' sum negativ: ',r,' number: ',m*n);
readln
end.
подкаректировать

[GetMax]

Подредактировал как мог. Вам осталось найти количество отдельных элементов матриц

Type
Mas=array[1..20,1..20]of integer;
Var
a:Mas;
i,j,SumPologit,SumOtric,N,M:integer;
procedure pr(Var b:Mas; Var p,r:integer; m,n:byte);
var
  i,j: integer;
begin
  p:=0;
  r:=0;
  For i:=1 to m do
  Begin
    for j:=1 to n do
    if b[i,j]>0 then p:=p+b[i,j]
    Else
    if b[i,j]<0 then r:=r+b[i,j];
  end;
end;
Function KolPologit(i,KolStolb:Byte):Byte;
Var
   j,Kol:Byte;
Begin
   Kol:=0;
   For j:=1 to KolStolb do
   If (A[i,j] > 0 )then Inc(Kol);
   KolPologit:=Kol
end;
begin
  write('N M ? ');
  readln(n,m);
  randomize;
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(199)-99;
  for i:=1 to n do
  begin
    for j:=1 to m do 
   write(a[i,j]:4);
   writeln
  end;
  Pr(A,SumPologit,SumOtric,n,m);
  Writeln('sum positiv: ',SumPologit,' sum negativ: ',SumOtric);
  Writeln;
  For i:=1 to M do
  Begin
    If (i mod 2 = 0) then Writeln('Kol Pologit v ',i,' stroke = ',KolPoloGit(I,N))
  End;
  readln

[nolx]

при вводе N,M ошибка что писать тут!?

[GetMax]

при вводе N,M ошибка что писать тут!?

Какая ошибка? и переделайте вот так

  For i:=1 to N do
  Begin
    If (i mod 2 = 0) then Writeln('Kol Pologit v ',i,' stroke = ',KolPoloGit(I,M))
  End;

[nolx]

вводим 2 числа
например 4 и 6
он пишет runtime error.215

[GetMax]

Не знаю чем вам помочь. У меня все работает. Проверьте еще раз правильность написания кода.
Вот так попробуйте переделать

procedure pr(Var b:Mas; Var p,r:integer; n,m:byte);
var
  i,j: integer;
begin
  p:=0;
  r:=0;
  For i:=1 to N do
  Begin
    for j:=1 to m do
    if b[i,j]>0 then p:=p+b[i,j]
    Else
    if b[i,j]<0 then r:=r+b[i,j];
  end;
end;

[Егор93]

Доделайте с подпрограммами

Дан массив записей с фамилиями сотрудников, годами их рождения и годами поступления в учреждение. Вывести фамилии сотрудников моложе 30 лет и проработавших не менее 5 лет.

PHP код:

Program Firma;
Uses Crt;
Type
Sotrudnik=record
      Fam : string[15];
      YearRog : integer;
      YearPos : integer;
    end;
Var
  y,i,n:integer;
  Massiv:array[1..100] of Sotrudnik;
Begin
  ClrScr;
  write('Vvedite Year ->');
  read(y);
  writeln;
  write('Vvedite kol-vo sotrudnikov -> ');
  read(n);
  for i:=1 to n do
    begin
      writeln('Vvedite v stolbec Familiiy, Year Rogdenia , Year Postuplenia');
      with massiv[i] do
          readln(Fam,YearRog,YearPos);
    end;
  writeln('Familia  Year rogdenia  Year postuplenia');
  writeln('---------------------------------');
  for i:=1 to n do
    if (massiv[i].YearRog>(y-30)) and (massiv[i].YearPos<=(y-5))
      then
        with massiv[i] do
    writeln(Fam:15,'   ',YearRog:4,'   ',YearPos:4);
  ReadKey;
End.