Простая программа в паскале

Question

В массиве состоящим из N целых чисел нужно вывести на экране сумму позитивных чисел и среднее арифметическое значение. 
 
Вот начало: 
Program LP1_v28; 
const n=10; 
var T, T1: array[1..n] of integer; 
 i, j, s: integer; 
 
begin 
writeln('Введите ',n,' целых чисел: '); 
 for i:=1 to n do 
 readln(T); 
 j:=1; 
 for i:=1 to n do 
 begin 
 if (T<0) then 
 begin

Абдылазова Омуркан · Accepted Answer

var 
a: array [1..10]of integer; 
i,sum,sn:integer; 
begin 
randomize; 
for i:=1 to 10 do begin 
a(i):=random(10); 
write(a(i),' '); 
if a(i) >0 then begin sum:=sum+a; 
sn:=sn+1; 
end; 
end; 
writeln; 
writeln('сумма положительных чисел: ',sum); 
sum:=sum div sn 
writeln('среднеарифметическое положительных чисел: ',sum); 
readkey; 
end.