Подскажите что не так в программе?

[Toxass]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


Procedure TForm1.Button1Click(Sender: TObject);
Const n =10;
var C:array[1..n] of integer;
F:array[1..n] of integer;
i,j,summa:integer;
srednee:real;
begin
summa:=0;
for i:=1 to n do
begin
memo1.Lines.add('Vvedite '+inttostr(i)+' element');

C[i]:=strtoint(edit1.Text); //???

summa:=summa+C[i];
end;
srednee:=(summa/n);
j:=1;
for i:=1 to n do
if C[i]>srednee then
begin
F[j]:=C[i];
j:=j+1;
end;
for i:=1 to j-1 do
memo1.Lines.Add(inttostr(F[i]));
end;
End.

[Hollander]

Так а что надо?

У тебя получается, что ты суммируешь значение которое написано в Edit1. Вычисляешь среднее всех считанных чисел(а оно у тебя все тот же Edit1.Text). Затем ты проверяшь если твоё считанное больше срднего. На данный момент это условие всегда ложно, т.к. если ты просуммировал 10 раз значение 10, то среднее будет равно 10, а 10 не больше 10.

[Toxass]

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

Так а что надо?

У тебя получается, что ты суммируешь значение которое написано в Edit1. Вычисляешь среднее всех считанных чисел(а оно у тебя все тот же Edit1.Text). Затем ты проверяшь если твоё считанное больше срднего. На данный момент это условие всегда ложно, т.к. если ты просуммировал 10 раз значение 10, то среднее будет равно 10, а 10 не больше 10.

а поп опдробней, что это все значит или можете ли исправить программу чтобы она работала?

[Sm1Le]

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

а поп опдробней, что это все значит или можете ли исправить программу чтобы она работала?

Здесь что Телепаты ? - Вы задачу напишите!!!! ( которую, якобы, должна решать данная программа)

[Toxass]

Вот задание: Написать программу обработки одномерного массива. Составить схему алгоритма. Из массива С(Н) переписать в массив Ф(И) элементы больше среднего значения массива С(Н).

[Hollander]

У тебя все правильно написано, за исключением того, что массив Ф(И) ты всегда заполняешь одним и тем же числом. Из-за этого уренда у тебя получается.
Вот строка:

C[i]:=strtoint(edit1.Text); //???

Измени на

C[i]:=Random(100);

Только сейчас ты не вводишь числа вручную, а они генерируются случайным образом.

[Toxass]

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

У тебя все правильно написано, за исключением того, что массив Ф(И) ты всегда заполняешь одним и тем же числом. Из-за этого уренда у тебя получается.
Вот строка:

C[i]:=strtoint(edit1.Text); //???

Измени на

C[i]:=Random(100);

Только сейчас ты не вводишь числа вручную, а они генерируются случайным образом.

а как сделать так, чтобы числа можно было вводить с клавиатуры? ?

[Hollander]

У тебя не консольное приложение, поэтому нужно крутиться. Можешь создать форму на которой будет edit и показыай её в цикле,а потом забирай, что ввел юзер.
Можно тупой вариант, если тебе нужно только 10 значений, то сделай 10 edit'ов и забирай оттуда. Но это очень плохо.

[Toxass]

не понял))))

[s.Creator]

  C[i] := strtointDef(InputBox('Формирование массива', 'Введите '+inttostr(i)+' элемент', ''),0);