0 / 0 / 0
Регистрация: 13.10.2017
Сообщений: 18
1

Найти сумму и произведение первых пяти элементов массива

22.12.2017, 21:53. Показов 1855. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Напишите пожалуйста в Lazarus. Задача третья -"найти сумму и произведение первых пяти элементов массива"
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2017, 21:53
Ответы с готовыми решениями:

Найти сумму первых десяти чисел, кратных пяти
Пожалуйста помогите Разработать программу в среде программирования Lazarus. Для каждой задачи...

Вычислить сумму элементов массива X и произведение элементов массива Y
Записать положительные элементы массива X подряд в массив Y . Вычислить сумму элементов массива X и...

В заданной действительной квадратной матрице найти сумму элементов двух первых строк
Составить программу, которая в данной действительной квадратной матрицы порядка N найти сумму...

Найти произведение ненулевых элементов и количество нулевых элементов одномерного массива
Здравствуйте! Помогите, пожалуйста, сделать программу в Лазарусе 1. Дан одномерный массив. Найти...

1
Эксперт Pascal/Delphi
6810 / 4567 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
23.12.2017, 08:53 2
Лучший ответ Сообщение было отмечено Андрюша666 как решение

Решение

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
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
  
  { TForm1 }
  
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var
  n, i: integer;
  a: array of integer;
  s: string;
  sum, p: real;
 
begin
  randomize;
  s := '';
  sum := 0;
  p := 1;
  n := StrToInt(inputbox('', 'Введите размерность массива:', ''));
  setlength(a, n);
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    s := s + IntToStr(a[i]) + ' ';
  end;
  for i := 1 to 5 do
  begin
    p := p * a[i];
    sum := sum + a[i];
  end;
  Memo1.Lines.Add(s);
  Memo1.Lines.Add('Sum: ' + FloatToStr(sum) + ' p: ' + FloatToStr(p));
  setlength(a, 0);
end;
 
end.
0
23.12.2017, 08:53
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.12.2017, 08:53
Помогаю со студенческими работами здесь

Найти произведение ненулевых элементов и количество нулевых элементов массива
Дан одномерный массив. Найти произведение ненулевых элементов и количество нулевых элементов. ...

Найти сумму и произведение элементов K-го столбца заданной матрицы
Дана матрица размера M × N и целое число K (1 ≤ K ≤ N). Найти сум-му и произведение элементов K-го...

Заменить каждый из элементов массива минимальным среди первых i элементов данного массива
Составьте программу заменяющую каждый из элементов T массива T минимальным среди первых I элементов...

Каждый из элементов t[i] массива T(m) заменить минимальным среди первых i элементов этого массива
Подскажите где ошибка пожалуйста,сказали не правильно program tekushiy_minimum; var t:...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru