Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива. (программа кумир) Пример: Введите пять чисел: 4 15 3 10 14

Программа написана на языке Delphi.

var

Form1: TForm1;

r : string;

a, b, c, d, e, p : integer;

implementation

{$R *. dfm}

procedure TForm1. Button1Click (Sender: TObject);

begin

a : = StrToInt (Edit1. Text); / / преобразуем текстовую переменную в тип integer

b : = StrToInt (Edit2. Text); / / преобразуем текстовую переменную в тип integer

c : = StrToInt (Edit3. Text);

d : = StrToInt (Edit4. Text);

e : = StrToInt (Edit5. Text);

p : = (a + b + c + d + e) / 5; / / (4 + 15 + 3 + 10 + 14) / 5 = 46/5 = 9,2.

Edit6. Text : = IntToStr (p);

end;

end.