uses crt;
var i,s:integer;
a:array[1..5] of integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
begin
a[i]:=random(15)-5;
if a[i]>0 then s:=s+a[i];
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[i]:=random(15)-5;
if ((a[i]>0) and (a[i] 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[i]:=random(15)-5;
if (a[i]>0) then s:=s*a[i];
end;
writeln(s);
readln;
end.
const
n=5;m=7;
var
S,i,j:integer;
P:real;
a:array[1..n,1..m]of integer;
begin
clrscr;
p:=1;S:=0;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(50);
write(a[i,j]:4);
s:=s+a[i,j];p:=p*a[i,j];
end;
end;
writeln;
writeln('S= ',s,' p= ',p:4:0);
readkey;
end.