|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
помогите пожалуйста исправить программу
нужно изменить данную программу по следующим условиям. Дан массив вещественных чисел. Предполагается, что в массиве не более 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; Последний раз редактировалось lmikle, 06.12.2011 в 01:27. |
#2
|
||||
|
||||
Чего тут задумываться?
Код:
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]; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |