Кнопка определить средний балл

@coal chamber · Регистрация: 12.03.2018

Author24 — интернет-сервис помощи студентам

Вопрос.
Для кнопки определения среднего арифметического как сделать чтобы в массиве от 2 строки до 30, при делении суммы чисел на их количество, бралось то количество строк в которых введено значение ??
допустим у меня 30 строк значения введены в 10, но можно вводить значения в оставшиеся строки.

Delphi

procedure TPagesDlg.Button5Click(Sender: TObject);
var
a:array[2..30] of real;
summ:real;
sr:real;
aa:real;
ssr:string;
i,cod:integer;
begin
for i:=2 to 30 do
if length(stringGrid1.Cells[1,i-1])<>0
then
begin
val(stringGrid1.Cells[1,i-1],aa,cod);
a[i]:=aa;
end
else a[i]:=0;
summ:=0;
for i:=2 to 30 do
 summ:=summ+a[i];
 sr:=summ/9;/////////////здесь чтобы делилось на количество строк с введенным значением
 str(sr:6:3,ssr);
 Edit5.Text:=ssr;
end;

@qwertehok · 25.11.2018, 14:19

сначала надо посчитать такие строки

@D1973 · 25.11.2018, 14:23

Сообщение от coal chamber

допустим у меня 30 строк значения введены в 10

Ну и на кой ляд такое транжирство: 2/3 памяти, выделенной под массив, не используются!!! Есть ведь динамические массивы и списки...

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,135 Записей в блоге: 3
	25.11.2018, 14:19	2
	сначала надо посчитать такие строки 0

@D1973 Модератор 9270 / 6048 / 2380 Регистрация: 21.01.2014 Сообщений: 25,828 Записей в блоге: 3
	25.11.2018, 14:23	3
	Сообщение от coal chamber допустим у меня 30 строк значения введены в 10 Ну и на кой ляд такое транжирство: 2/3 памяти, выделенной под массив, не используются!!! Есть ведь динамические массивы и списки... 0