Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.09.2007, 12:38   #1
only_win
Новичок
Джуниор
 
Регистрация: 25.09.2007
Сообщений: 2
По умолчанию вычислить сумму отрицательных элементов в массиве

Решите плиз такую задачу:
В одном массиве, состоящем из n вещественных чисел, вычислить сумму отрицательных элементов в массиве.
Надо делать с модулем. И кажется надо, что-то обязательно сделать в основной праграмме.
only_win вне форума Ответить с цитированием
Старый 25.09.2007, 13:21   #2
А. Долматов
Форумчанин
 
Аватар для А. Долматов
 
Регистрация: 15.02.2007
Сообщений: 183
По умолчанию

это модуль. в нем твоя функция к вычислению суммы элементов.
unit Modul1;
var a:array[1..10] of real;
i:byte;
sum:real;
function summaelementov(d:array[1..10] of integer):real;
begin
function summaelementov(d:array[1..10] of integer):real;
begin
sum:=0;
for i:=1 to 10 do
begin
if d[i]<0 then sum:=sum+d[i];
summaelemntov:=sum;
end;
end;
end.

в программе не забудь указать USES Modul1
Знать все невозможно, в силу того, что жить бы стало неинтересно.

Последний раз редактировалось А. Долматов; 25.09.2007 в 14:18.
А. Долматов вне форума Ответить с цитированием
Старый 25.09.2007, 15:22   #3
only_win
Новичок
Джуниор
 
Регистрация: 25.09.2007
Сообщений: 2
По умолчанию

Цитата:
Сообщение от А. Долматов Посмотреть сообщение
это модуль. в нем твоя функция к вычислению суммы элементов.
unit Modul1;
var a:array[1..10] of real;
i:byte;
sum:real;
function summaelementov(d:array[1..10] of integer):real;
begin
function summaelementov(d:array[1..10] of integer):real;
begin
sum:=0;
for i:=1 to 10 do
begin
if d[i]<0 then sum:=sum+d[i];
summaelemntov:=sum;
end;
end;
end.

в программе не забудь указать USES Modul1
спасибО! огромноЕ!
only_win вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Колличество четных элементов в одномерном массиве forsy Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 3 21.05.2008 15:01
В двумерном массиве 4*5 найти сумму элементов по строке или столбцу. bkmz Помощь студентам 11 16.04.2008 11:17
найти сумму элементов строки jenja Общие вопросы Delphi 2 02.04.2008 17:49
Найти сумму последних L положительных элементов в массиве A={a[i]}. Assembler Kasim Помощь студентам 2 16.12.2007 16:12
Количество элементов в динамическом массиве lytkin Общие вопросы Delphi 8 21.02.2007 14:50