Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.77/13: Рейтинг темы: голосов - 13, средняя оценка - 4.77
2 / 2 / 3
Регистрация: 06.10.2009
Сообщений: 123
1

Вычисление суммы отрицательных элементов массива (подпрограмма)

16.11.2009, 16:03. Показов 2340. Ответов 2
Метки нет (Все метки)

Написать подпрограмму для вычисления суммы отрицательных элементов массива A(200).

помогите чем можете
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2009, 16:03
Ответы с готовыми решениями:

Вычисление суммы отрицательных элементов массива
. Составьте программу вычисления в массиве B(8) суммы отрицательных элементов

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

Подпрограмма. Среди элементов четных строк массива определить количество отрицательных элементов
Добрый день. Помогите, пожалуйста, сделать в виде подпрограммы. Дан массив X(N,M). Среди...

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

2
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
16.11.2009, 16:07 2
Лучший ответ Сообщение было отмечено babur4iK как решение

Решение

Pascal
1
2
3
4
5
6
7
a: array[1..200] of integer;
 
sum:=0;
for i:=1 to 200 do
if a[i]<0 then sum:=sum+a[i];
 
writeln('сумма отрицательных чисел= ', sum);
1
Модератор
63394 / 47082 / 32451
Регистрация: 18.05.2008
Сообщений: 114,122
16.11.2009, 17:29 3
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
26
27
28
29
uses crt;
const n=200;
type mas=array[1..n] of integer;
function Summ(m:mas):integer;
var i:byte;
    s:integer;
begin
s:=0;
for i:=1 to n do
if m[i]<0 then s:=s+m[i];
Summ:=s;
end;
 
var a:mas;
    i:byte;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(10)-5;
  write(a[i]:4);
 end;
writeln;
writeln;
write('Сумма отрицательных=',Summ(a));
readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2009, 17:29

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Подпрограмма: вычисление модуля суммы отрицательных элементов массива
Для массивa x=(x1,x2,..,xn) составить подпрограмму,вычисляющую модуль суммы отриц. элементов...

Подпрограмма: вычислить модуль суммы отрицательных элементов массива
Для массива X=(X(1),X(2),...,X(N) слставить подпрограмму,вычисляющую модуль отрирц.элементов...

Вычисление суммы отрицательных элементов массива
Написать подпрограмму для вычисления суммы отрицательных элементов массива А(200)


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

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

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