Процедуры и функции хотел спросить

[darik2011]

program Alina5;
uses crt;
type mas=array[1..10,1..10] of integer;
var a,b:mas; n,m,k,l,s,v,z,g,h:integer;
procedure matrixin(var x:mas; row,col:integer);
var i,j:integer;
begin
writeln('______Vvod elementov______');
writeln('');
for i:=1 to row do begin
writeln('Vvod elementov ',i,' stroki');
for j:=1 to col do
readln(x[i,j]); end;
end;

procedure matrixout(var x:mas; row,col:integer);
var i,j:integer;
begin
for i:=1 to row do begin
writeln;
for j:=1 to col do
write(x[i,j], ' ');
end;
end;

procedure zamena(var x:mas; row,col:integer);
var i:integer;
begin
for i:=1 to row do
if x[i,i]=0 then x[i,i]:=1;
end;

function sum(var x:mas;row,col:integer):integer;
var s, i,j,min, index: integer ;
begin
s := 0;
index:=0;
min:=x[1,1];
For i:=1 to row do
begin
For j:=1 to col do
begin
If x[i,j]<=min then
begin
min:=x[i,j];
index:=i;
end;
end;
end;
writeln ('min. element - ',min);
writeln ('stroka - ',index);

For i:=1 to row do
begin
For j:=1 to col do
begin
if i=index then
begin
s:=s+x[index, j];
end;
end;
end;
writeln ('summa elementov stroki - ',s);
h:=s;
g:=s;
end;
begin
clrscr;
writeln('razmernost Matrix A (kvadratnaya)');
readln(n,m);
writeln('razmernost Matrix B (kvadratnaya)');
readln(k,l);
matrixin(A,n,m);
matrixin(B,k,l);
clrscr;
writeln('_____MATRIX_A_____');
matrixout(A,n,m);
writeln ('');
writeln('_____MATRIX_B_____');
matrixout(B,k,l);
writeln ('');
writeln;
writeln('_____MATRIX_A_____');
matrixout(A,n,m);
writeln('');
sum(a,n,m);
writeln (h);
v:=h;
writeln('_____MATRIX_B_____');
matrixout(B,k,l);
writeln ('');
sum(b,k,l);
writeln(g);
z:=g;
if v>z then
begin
writeln ('max - MATRIX A');
end
else
begin
writeln ('max - MATRIX B');
end;
readln;
end.

вопрос такой где там написано фунцию сумма четных элементов?

[Mad_Cat]

где там написано фунцию сумма четных элементов?

нет там такой функции

[darik2011]

А как написать её?

[Poma][a]

1) вариант "в лоб" просто запускаем цикл for c 1 до n в цикле проверяем если not Odd (a[i]) тогда sum := sum + a[i]
2) вариант перед циклом ставим развилку (см. выше) а сщетчик циклы инкриментируем 2.
З.Ы. не забудь инициализировать sum

[darik2011]

Сообщение от Poma][a

1) вариант "в лоб" просто запускаем цикл for c 1 до n в цикле проверяем если not Odd (a[i]) тогда sum := sum + a[i]
2) вариант перед циклом ставим развилку (см. выше) а сщетчик циклы инкриментируем 2.
З.Ы. не забудь инициализировать sum

я практически не понимаю паскаль
можно подробнее? где мне нужно вписать вариант 1
спасибо)

[Hacker19_90]

я практически не понимаю паскаль

сидите учите

где мне нужно вписать вариант 1

в своей функции!

можно подробнее?

создаёте функцию, формальными параметрами в которую передаёте свой массив и его размер, возвращаемое значение это ваша сумма! Всё просто!

[Poma][a]

function SummChet (a : MyArr,  n : Integer, sum); {MyArr-тип твоего массива его укажешь в разделе тайп;n - кол-во элементов массива; summ- сумма четных элементов}
var
         i : Integer;
begin
         sum := 0;
         for i := 1 to n do
                  if not Odd(n) then
                          Inc(sum);
      
         SummChet := sum;
end;

З.Ы. не проверял