1)дан одномерный массив...

1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7элементов.Найти колличество четных положительных элементов.

 

uses crt;
var i,s:integer;
a:array[1..5] of integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
begin
a:=random(15)-5;
if a>0 then s:=s+a;
end;
writeln(s);
readln;
end.

uses crt;
var i,s:integer;
a:array[1..7] of integer;
begin
s:=0;
randomize;
for i:=1 to 7 do
begin
a:=random(15)-5;
if ((a>0) and (a mod 2 = 0)) then inc(s);
end;
writeln(s);
readln;
end.
 
uses crt;
var i,s:integer;
a:array[1..6] of integer;
begin
s:=1;
randomize;
for i:=1 to 6 do
begin
a:=random(15)-5;
if (a>0) then s:=s*a;
end;
writeln(s);
readln;
end.