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

сумма все положительных элементов в массиве

29.09.2010, 19:23. Показов 514. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Пожалуйста помогите. Нужна програма сумма все положительныхэлементов в массиве не более 50 элементов
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.09.2010, 19:23
Ответы с готовыми решениями:

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

Сумма и число положительных элементов каждого столбца в двумерном массиве
1.Для данного двумерного массива вычислите и запомните в другом двумерном массиве сумму и число...

Найти разницу R = M-L, где M - сумма положительных элементов массива A (7), а L - сумма положительных элементо
Найти разницу R = M-L, где M - сумма положительных элементов массива A (7), а L - сумма...

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

4
141 / 135 / 69
Регистрация: 15.12.2009
Сообщений: 343
29.09.2010, 19:42 2
Pascal
1
2
for i:=1 to 50 do 
if a[i]>0 then inc(s,a[i])
0
Студент
119 / 114 / 16
Регистрация: 14.08.2010
Сообщений: 673
29.09.2010, 19:44 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
program      sam;
uses         crt;
const        WG=50;
type         tmasi=array[1..WG]of integer;
var          a:tmasi;
             i,j:byte;
             s:integer;
begin
     write('Ðàçìåðíîñòü-');readln(j);
     randomize;
     s:=0;
     for i:=1 to j do begin a[i]:=random(50); if a[i]>0 then s:=s+a[i]; end;
     writeln('Ìàññèâ:');
     for i:=1 to j do begin
     write(a[i]:5);   end;
     writeln;
     writeln('Ñóììà ïîëîæèòåëüíûõ ÷èñåë =',s);
end.
0
0 / 0 / 0
Регистрация: 29.09.2010
Сообщений: 22
04.05.2011, 23:25  [ТС] 4
Сэм, помогите пожалуйста с массивами
0
4 / 4 / 4
Регистрация: 04.05.2011
Сообщений: 7
04.05.2011, 23:31 5
program massiv;
uses crt;
var a:array[1..50] of integer;
i,sum:integer;
begin
randomize;
for i:=1 to 50 do a[i]:=random(100)-50;
For i:=1 to 50 do
write(a[i]:4);
sum:=0;
For i:=1 to 50 do
if a[i]>0 then
inc(sum,a[i]);
writeln(a[i],' ');
writeln('Сумма положительных элементов массива: ',sum) ;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2011, 23:31
Помогаю со студенческими работами здесь

Найти в массиве натуральных чисел все группы элементов, сумма цифр (элементов) которых является палиндромом
1. Найти в строке самое маленькое по количест-ву слов множество, в словах которого содержатся все...

Обнулить все отрицательные элементы массива, если сумма их модулей меньше суммы положительных элементов
Задача: В массиве из 10 целых чисел обнулить все отрицательные элементы, если сумма их модулей...

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

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


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

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

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