Нужно написать программу в PASCAL

Question

Найти количество положительных элементов массива. 
А) при вводе 7 случайных чисел программой 
Б) при вводе 5 различных чисел через клавиатуру

Алексей · Accepted Answer

1) Функция Randomize вроде всегда вернет значение больше нуля. 
2) 
program z2; 
var i,k,a:integer; 
begin 
k:=0; 
for i:=1 to 5 do begin 
readln(a); if a>0 then k:=k+1; 
end; 
writeln(k); 
end.