[volery]

Вводится массив. Сколько в нем чисел совпадают с медианой (медиана - это среднее арифметическое всех чисел в массиве).

На вид простая! Как я понял надо в ListBox ввести числа сложить их и разделить на количество, и в цикле проверить каждое число равно ли оно средне арифметическому числу и вывести...Но у меня как то не получается всё сделать правильно...

[Aristarh Dark]

Если работать только с целыми числами, то примерно вот так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

program Project1;   {$APPTYPE CONSOLE}   uses   SysUtils; var   data:array of integer;   arLen:integer;   i,summ,med:integer;   counter:integer; begin   WriteLn('Input array length');   ReadLn(arLen);   SetLength(data,arLen);   counter:=1;   summ:=0;   for i:=Low(data) to High(data) do     begin       WriteLn(Format('Input element #%d',[counter]));       ReadLn(data[i]);       inc(counter);       inc(summ,data[i]);     end;   med:=summ div arLen;   summ:=0;   for i:=Low(data) to High(data) do     if data[i]=med then       inc(summ);   WriteLn(Format('Result - %d element(s)',[summ]));   ReadLn;   data:=nil; end.

[volery]

А визуальной случайно нету? Или вот как здесь зделать так что бы делил сумму на количество элементов?

Код:

1 2 3 4 5 6 7 8 9 10

Var Sum,A,i:integer; begin   Sum:=0;   for i:=0 to ListBox1.Items.Count-1 do     begin       A:=StrToInt(ListBox1.Items[1]);       Sum:=Sum+A       end;       ShowMessage('Sum is '+IntToStr(Sum)); end;

Admin: Пользуемся тегами!

[lmikle]

А визуально сам сделаешь.
Или в раздел "Работа"...

[volery]

я зделал, и среднее значение счтает! Но нехочет находить одинаковые числа...Может кто подскажет где здесь ошибка?

Код:

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

Var Sum,A,i,sum2,sum3:integer; begin   Sum:=0; i:=0;   while StringGrid1.Cells[0,i]<>'' do     begin       A:=StrToInt(StringGrid1.Cells[0,i]);       Sum:=Sum+A;       Inc(i)     end;       Sum2:=Sum div i;       Sum3:=0;       if sum=sum2 then sum3:=sum3+1;       ShowMessage('Sum is '+IntToStr(sum3)) end;