Const n=10; Var a:array[1..n]of integer; i,S,k:integer; begin for i:=1 to n do begin a[i]:=random(100)-50; write(a[i]:4); if (a[i] mod 2=0)and(a[i]<0)then begin s:=s+a[i]; k:=k+1; end end; writeln; writeln('S: ',s,' k:',k); end.
main() int N = 10, count = 0, z = 5, i; int m[N]; double res = 0
for(i = 0, i < N, i++) if ((m[i] >= -3) && (m[i] <= 3)) { count++; res = res + m[i]; }
if (count == 0) res = 0; else res = res / count;
if (res > z) { res = 0; for(i = 0; i < N; i++) if (m[i] % 2 == 0) res = res + m[i]; } else { res = 1; for(i = 0; i < N; i++) if (m[i] % 2 != 0) res = res * m[i]; }
n=10;
Var
a:array[1..n]of integer;
i,S,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:4);
if (a[i] mod 2=0)and(a[i]<0)then
begin
s:=s+a[i];
k:=k+1;
end
end;
writeln;
writeln('S: ',s,' k:',k);
end.