Question

составить программу которая будет находить сумму отрицательных чётных элементов одномерного массива. используя процедуры

Answer 1

Var
  i,s:integer;
  a:array[1..10]of integer;
procedure sum(a:integer; var s:integer);
begin
if (a mod 2=0) and (a<0) then
   s:=s+a
end;
begin
write('Массив: ');
for i:=1 to 10 do
  begin
  a[i]:=random(-10,10);
  write(a[i],' ');
  sum(a[i],s)
  end;
writeln;
writeln('s=',s)
end.