Одномерный массив в Delphi (Задача)

[Kawun]

Добрый день. Помогите пожалуйста с задачей в Delphi.

Условие задачи:
Разработать программу с единственным циклом для обработки одномерных массивов.
При заданных X1, X2 .... Xn найти отношение A / B, где
A = X1+X2+...+XN и B = X1*X2 .... *XN

Пожалуйста напишите код к этой задачке.
Это первая задачка с массивом которую мне задали, сам пытался написать - не ыходит

PS: Вот то, что пытался сам написать:

procedure TForm1.Button1Click(Sender: Tobject);
Const NMAX = 6; {Максимальное кол-во элементов массива}
Type TMas: Array [1..NMAX] of Real;
Var
X: TMas; {Исходный массив Х}
N: Integer; {Кол-во элементов массива X}
I: Integer; {Параметр цикла}
S: Real; {Сумма}
R: Real; {Результат}
begin
N:=StrToInt (EditN.TExt);
For I = 1 To N Do
begin
X[I]:=StrToFloat (StringGrid1.Cells [I-1, 0]);
End;
S:=0
For I:=1 To N Do
//Дальше не знаю что и делать :(

[MyQwErTy]

сам пытался написать - не выходит

напиши текст программы который ты пытался написать

[Kawun]

Сообщение от MyQwErTy

напиши текст программы который ты пытался написать

написал, в первое сообщение вставил. Написан не до конца т.к не знаю что делать дельше(

[Serge_Bliznykov]

ну почти всё уже написал! чуть-чуть осталось дописать!
и я рекомендую использовать имена переменных такие же, как задано в условиях задачи. для простоты понимания, так сказать ;-) хотя, это и не обязательно ;-)

var
  A,B : extended;
begin
...
 A := 0;
 B := 1;
 For I:=1 To N Do
 begin
   A:=A+X[i];
   B:=B*X[i];
 end;
 ShowMessage('Отношение A/B равно '+ FloatToStr(A/B));

[Kawun]

2 Serge_Bliznykov
Большое спасибо за помощь!
Получается, что окончательный код программы будет таковым?:
PS: Извиняюсь за свое непонимание, стараюсь все понять, пока что это не очень получается

procedure TForm1.Button1Click(Sender: Tobject);
Const NMAX = 6; {Максимальное кол-во элементов массива}
Type TMas: Array [1..NMAX] of Real;
Var
X: TMas; {Исходный массив Х}
A,B: extended; {Наши А и В}
N: Integer; {Кол-во элементов массива X}
I: Integer; {Параметр цикла}
S: Real; {Сумма}
R: Real; {Результат}
begin
N:=StrToInt (EditN.Text);
A:= 0;
B:= 1;
For I:=1 To N Do
begin
X[i]:=StrToFloat (StringGrid1.Cells [I-1, 0]);
A:=A+X[i];
B:=B*X[i];
End;
S:=0
For I:=1 To N Do
ShowMessage('Отношение A/B равно '+ FloatToStr(A/B));
end;
end

[Serge_Bliznykov]

1) ну то, что Вы привели здесь - даже не откомпилируется -нет точки с запятой после S:=0

2) второй цикл ПОЛНОСТЬЮ НЕ НУЖЕН!!!
вы же всё в первом цикле уже посчитали!
просто сделайте один ShowMessage (или киньте ещё один Edit и присвойте в Edit2.Text := FloatToStr(A/B) )

да и переменная S у Вас нигде не используется - её можно смело удалить (мы вместо неё использовали переменную A)

[Kawun]

так, подправил, но думаю еще придется править (не уверен я в правильности):

procedure TForm1.Button1Click(Sender: Tobject);
Const NMAX = 6; {Максимальное кол-во элементов массива}
Type TMas: Array [1..NMAX] of Real;
Var
X: TMas; {Исходный массив Х}
A,B: extended; {Наши А и В}
N: Integer; {Кол-во элементов массива X}
I: Integer; {Параметр цикла}
R: Real; {Результат}
begin
N:=StrToInt (EditN.Text);
A:=0;
B:=1;
For I:=1 To N Do
begin
X[i]:=StrToFloat (StringGrid1.Cells [I-1, 0]);
A:=A+X[i];
B:=B*X[i];
end;
EditR.Text := FloatToStr(A/B));
end;
end

[Serge_Bliznykov]

на мой взгляд, теперь всё. теперь гуд!! ;-)

единственное, будьте осторожны и бдительны (ну, или добавьте проверки -
1) не проверяется, что в EditN внесено число (и что там целое число)
2) если число в EditN будет больше NMAX - тоже будет ошибка выхода за пределы границ массива.

[Kawun]

Еще раз спасибо за помощь!
Постараюсь учесть Ваши замечания по поводу проверок. :о)

[knoxville177]

1. Подсчитать количество цифр в числе, которое меньше 1 ( Используя Оператор Repeat

2. Дано натуральое число N и массив целых чисел a1,..an Выяснить имеется в массиве a1,..,an хотя бы одно нечетное отрицательное число и поределить его местонахождение в массиве. ( Через одномерный массив)

3. Дана вещественная матрица A (N.M). Составить программу нахождения максимального элемента матрицы и выделения его местоположения. ( Через двухмерный массив )

заранее огромное спасибо!