Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
adams1995
0 / 0 / 0
Регистрация: 08.02.2014
Сообщений: 20
1

Вычислить сумму модулей элементов

10.06.2014, 00:50. Просмотров 895. Ответов 1
Метки нет (Все метки)

Вычислить сумму абсолютных значений элементов заданной числовой последовательности.
Запрещенные служебные слова: for
Входные данные:
Во входном потоке в первой строке дано единственное целое число N (0 < N <= 100) - число элементов числовой последовательности
Во второй строке перечислены значения положительных элементов целочисленной последовательности (через пробел). Значения элементов не превышает 10.

Выходные данные:
В выходной поток вывести единственное целое число.

Пример входных данных:
10
4 5 2 7 3 6 3 9 8 2
Пример выходных данных:
49
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.06.2014, 00:50
Ответы с готовыми решениями:

Вычислить количество и сумму модулей элементов массива, расположенных после первого отрицательного элемента
В одномерном массиве состоящий из n вещественных элементов,(n,&lt;=50) вычислить количество и сумму...

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

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

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

Сгладить матрицу, после чего найти сумму модулей элементов, расположенных ниже главной диагонали
Соседями элемента Aij в матрице назовем элементы Аkl, где i - 1 &lt; k &lt; i + 1 , j - 1 &lt; l &lt;j + 1, (k,...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3878 / 2862 / 3637
Регистрация: 05.06.2014
Сообщений: 14,057
11.06.2014, 09:17 2
Лучший ответ Сообщение было отмечено adams1995 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
VaR
  f,g:text;
  m0,n0,sum:integer;
bEGIN
  assign(f,'input.txt');
  reset(f);
  readln(f,m0);
  sum:=0;
  while not eof(f)  do
    begin
      read(f,n0);
      sum:=sum+abs(n0);
    end;
  close(f);
 
  assign(g,'output.txt');
  rewrite(g);
  WriteLn(g,sum);;
  close(g);
  ReadLn;
END.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.06.2014, 09:17

Найти наибольшее число из элементов и вычислить сумму элементов от первого до наибольшего
Ввести массив из 14 целых чисел. Найти наибольшее число из элементов и вычислить сумму элементов от...

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

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


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

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

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