Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
Vilork
0 / 0 / 0
Регистрация: 23.03.2017
Сообщений: 21
1

Составьте программу вычисления суммы, произведения и среднего арифметического элементов массива

08.12.2017, 11:46. Просмотров 844. Ответов 2
Метки нет (Все метки)

Задан массив из N целых чисел. Составьте программу вычисления суммы, произведения и среднего арифметического элементов массива.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2017, 11:46
Ответы с готовыми решениями:

Написать программу для подсчёта суммы произведения среднего арифметического
Помогите пожалуйста. Нужно написать программу для подсчёта суммы произведения...

Составить программу алгоритма нахождения среднего арифметического элементов массива
Составить программу алгоритма нахождения среднего арифметического элементов...

Составить программу вычисления среднего арифметического положительных чисел
Дан файл, содержащий действительные числа. Составить программу вычисления...

Найти сумму элементов массива больших среднего арифметического элементов массива, массив задается вручную.
Написать программу, которая вводит с клавиатуры 20 реальных чисел, и...

Определить количество тех элементов массива, значения которых меньше среднего арифметического элементов массива
Помогите составить программу Массив содержит 8 действительных чисел....

2
VyachNik
47 / 47 / 34
Регистрация: 16.02.2016
Сообщений: 277
08.12.2017, 15:26 2
Лучший ответ Сообщение было отмечено Vilork как решение

Решение

можно так

Delphi
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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
  Edit1.SetFocus;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
    '0'..'9': ;
    #8      : ;
    #13     : begin
                  Memo1.Lines.Add(Edit1.Text);
                  Edit1.Text := '';
                 end;
  else
    Key := Chr(0);
  end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
  Label3.Caption := '';
  Label5.Caption := '';
  Label7.Caption := '';
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:word;
 s,p: longword;
begin
  s:=0;
  p:=1;
  if Memo1.Lines.Count <> 0 then
    begin
      for i:=0 to Memo1.Lines.Count - 1 do
        begin
         s:=s+StrToInt(Memo1.Lines[i]);
         p:=p*StrToInt(Memo1.Lines[i]);
        end;
      Label3.Caption := IntToStr(s);
      Label5.Caption := InttoStr(p);
      Label7.Caption := FloatToStr(s/Memo1.Lines.Count);
    end;
end;
end.
пример работы программы
0
Миниатюры
Составьте программу вычисления суммы, произведения и среднего арифметического элементов массива  
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3878 / 2862 / 3637
Регистрация: 05.06.2014
Сообщений: 14,057
08.12.2017, 15:27 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.Button1Click(Sender: TObject);
var
  a: array of integer;
  n, i: integer;
  s, sr, p: real;
begin
  s := 0;
  sr := 0;
  p := 1;
  n := StrToInt(InputBox('', '', ''));
  SetLength(a, n);
  Randomize;
  for i := 0 to n - 1 do
  begin
    a[i] := -n div 2 + Random(n);
    s := s + a[i];
    p := p * a[i];
  end;
  sr := s / n;
  ShowMessage('Сумма: ' + FloatToStr(s) + ' среднее: ' + FloatToStr(sr) + ' произведение: ' + FloatToStr(p));
  setLength(a, 0);
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2017, 15:27

Найти элементы массива, меньшие среднего арифметического элементов того же массива
Нужно написать в Delphi(в форме) вот эту штуку: В массиве c=(c1,c2,...,cn)...

Найти номера элементов, меньших среднего арифметического элементов того же массива
Программа-В массиве c=(c1,c2,...cn) найти номера элементов, меньших среднего...

Найти количество элементов массива, больших среднего арифметического всех его элементов
Задан массив A из n элементов. Найти количество элементов этого массива,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru