Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
VladimirAvakov
0 / 0 / 0
Регистрация: 23.03.2013
Сообщений: 32
1

Получить удвоенную сумму всех положительных членов последовательности

14.06.2013, 23:10. Просмотров 1105. Ответов 1
Метки нет (Все метки)

Одномерные массивы.
Даны натуральное число n и действительные a1,…,an, где n≤3000. Получить удвоенную сумму всех положительных членов последовательности a1,…,an.

 Комментарий модератора 
VladimirAvakov, Множественные задания в одной теме запрещены правилами форума. Для каждой задачи создавайте отдельную тему.
Ваша вторая тема:
Вычислить сумму элементов главной диагонали матрицы
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2013, 23:10
Ответы с готовыми решениями:

Получить удвоенную сумму всех положительных членов последовательности
Даны нат. число, действительные числа X1,...,Xn. Получить удвоенную сумму всех положительных членов...

Подпрограммы. Получить удвоенную сумму всех положительных членов последовательности с помощью функции
Даны натуральное число n и действительные a1,…,an, где n=100. Получить удвоенную сумму всех...

Получить сумму квадратов всех положительных членов последовательности
Помогите пожалуйста решить задачу:Получить сумму квадратов всех положительных членов...

Получить удвоеную сумму всех положительных членов последовательности
даны натуральное число n , действиетльные числа а1,....,an. Получить удвоеную сумму всех...

Получить сумму положительных и число отрицательных членов последовательности
Одномерный массив Даны натуральные числа n, a1, a2, … ,an. В последовательности a1, a2,…,an...

1
ermolay
3437 / 2376 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
14.06.2013, 23:35 2
Лучший ответ Сообщение было отмечено VladimirAvakov как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  nmax=3000;
var
  a: array[1..nmax] of integer;
  n,i: integer;
  s: longint;
begin
  repeat
    write('Ââåäèòå Г°Г*çìåð Г¬Г*Г±Г±ГЁГўГ* n (n <= 3000): N=');
    readln(n);
  until (n>0) and (n<=3000);
  s:=0;
  writeln('ГЊГ*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    a[i]:=random(19)-9;
    write(a[i]:4);
    if a[i]>0 then s:=s+a[i];
  end;
  writeln;
  writeln('ÓäâîåГ*Г*Г*Гї ñóììГ* ïîëîæèòåëüГ*ûõ ýëåìåГ*òîâ: S=',s*2);
end.
0
StackOverflow
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2013, 23:35

Получить сумму всех членов последовательности
Даны натуральное число n, целые числа a1, x1, ... , xn. Если в последовательности x1, ... , xn есть...

Получить сумму всех членов последовательности, следующих за первым заданным
В чём ошибка? Даны натуральное число n и целые числа q, a1,…,an, где n≤1000. Если в...

Массив: Вычислить сумму положительных, четных элементов, > 5 и сумму отрицательных членов последовательности
Дана последовательность, состоящая из n чисел, вводимых пользователем с клавиатуры. Вычислить сумму...


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

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

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