Недоработка одномерного масива!

[YooooO!!!]

Program pr;
var
mas:array[1..5] of integer;
i:byte
sum,proizv;integer;
begin
Randomize;
for i:=1 to 5 do
begin
Mas[i]:=-20+random(50);
writeln (Mas[i]:3)
end;
sum:=0
proizv:=1;
for i:=1 to 5 do 
if mas[i]<0 then proiz:=proizv*mas[i]
else
if mas[i]>0 then sum:=sum+mas[i];
writeln('summa=',sum);
writeln('Proizvedenie=',proizv);
readln
end.

Я составила програму а препод сказал надо не случайные цифры а ....что бы с клавиатуры водить можно было...!!??

[k0tone]

Randomize;
for i:=1 to 5 do
begin
Mas[i]:=-20+random(50);
writeln (Mas[i]:3)
end;

Поменяй на:

for i:=1 to 5 do readln(Mas[i]);
for i:=1 to 5 do write(Mas[i]:6);