1 / 1 / 1
Регистрация: 27.05.2013
Сообщений: 160
1

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

20.10.2013, 17:51. Показов 1171. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Добрый вечер, помогите пожалуйста с задачкой на зачёт по турбо паскаль:

Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элемента.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.10.2013, 17:51
Ответы с готовыми решениями:

Вычислить сумму модулей элементов массива, расположенных после минимального элемента
1.Вычислить сумму модулей элементов массива К размером n, расположенных после минимального...

Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элемента
2) Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элем

В одномерном массиве вычислить сумму модулей элементов массива, расположенных после минимального по модулю элемента
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Количество...

Вычислить сумму модулей элементов массива, расположенных после первого элемента
Сделал через массив, требуют через функцию. В одномерном массиве, состоящем из n целочисленных...

1
3030 / 1916 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
20.10.2013, 20:32 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Считает сумму модулей элементов, расположенных после первого минимального:
Pascal
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
var
  x: array [1..100] of integer;
  i, n, min, imin, s: integer;
 
begin
  Write('Введите размер массива: ');
  Readln(n);
  min := MAXINT;
  Randomize;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i], #32);
    if x[i] < min then
    begin
      min := x[i];
      imin := i;
    end;
  end;
  Writeln;
  for i := n downto imin + 1 do
    s := s + Abs(x[i]);
  Writeln('Сумма = ', s);
  Readln
end.
Если нужно после последнего минимального элемента, то заменить 14 строчку на эту:
Pascal
1
if x[i] <= min then
0
20.10.2013, 20:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.10.2013, 20:32
Помогаю со студенческими работами здесь

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

Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю
в одномерном массиве состоящем из n вычислить сумму модулей элементов массива расположенных после...

Сумма модулей элементов массива расположенных после минимального по модулю элемента
Помогите с задачками плизз. Нехочу всё лето с долгами разбираться. Выручите пожалусто. 1). В...

Найти сумму элементов массива, расположенных после минимального элемента
В одномерном массиве, состоящем из n вещественных элементов вычислить: 1. количество элементов,...


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

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

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