[Nikta1111]

нужно изменить данную программу по следующим условиям. Дан массив вещественных чисел. Предполагается, что в массиве не более 20 чисел. Требуется найти сумму его положительных элементов с помощью условного оператора (if-then-else).

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
n,i:integer;
s:real;
a:array[1..20] of real;
begin
n:=StrToInt(Edit1.Text);
for i:=1 to n do
a:=StrToInt(StringGrid1.Cells[i-1,0]);
S:=0;
for i:=1 to n do
S:=S+a;
Edit2.Text:=FloatToStr(S);

end;