Дана задача массив A(n). Требуется определить сумму всех положительных элементов. Турбо паскаль.

Верно ли это решение?

uses

SysUtils;

const n=100;

var a:array [1..n] of real;

s:real;

k:integer;

begin

for k:=1 to n do if a[k]>0 then s:=s+a[k];

readln;

writeln(s);

end.