[Nikta1111]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;