[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;

[angvelem]

Чего тут задумываться?

Код:

  for i:=1 to n do
  a:=StrToInt(StringGrid1.Cells[i-1,0]);
  S:=0;
  for i:=1 to n do
    S:=S+a;

измени на:

Код:

  for i := 1 to n do
    a[i]:=StrToFloatDef(StringGrid1.Cells[i-1,0], 0);
  S := 0;
  for i := 1 to n do
    if a[i] > 0 then
      S:=S+a[i];

Примерно так.