Program Massive;
uses Crt;
const N = 10;
var
A: array [1..N] of Integer;
i: integer;
x: integer;
begin
Randomize;
for i:= 1 to N do
begin
A[i] := Random(101);
A[i] := A[i] - 50;
end;
ClrScr;
writeln('Massive:');
for i:= 1 to N do
write(A[i]:4);
writeln;
readln;
for i:=1 to N do
if (A[i] > 0) then x:=x+1;
write ('x = ', x);
end.
