1)среди 15 чисел найдите сумму всех положительных чисел 2) среди 15 чисел найдите количество всех чисел которые являются не отрицательными

Предыдущий
вопрос Следующий
вопрос

var t:array[1..15] of integer;

i,s,k:integer;

begin 

k:=0;s:=0;

for i:=1 to 15 do begin

read(t[i]);

if t[i]>0 then s:=s+t[i];

if t[i]>=0 then k:=k+1;

end;

writeln;

writeln('сумма положительных чисел:',s);

writeln('количество неотрицательных чисел:',k);

end.