Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 6
1

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

04.12.2012, 14:49. Показов 1271. Ответов 2
Метки нет (Все метки)

Условие: Посчитать Сумму отрицательных элементов кратных заданному числу.
Сделать нужно задачу в подпрограммах
Есть ПП ввода и вывода элементов массива, вычисление их суммы. Как сделать эти ПП не понимаю)
Буду рад любой помощи)
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

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

Требуется посчитать сумму всех элементов, кратных заданному числу x
Дан массив a из n целых чисел. Требуется посчитать сумму всех элементов, кратных заданному числу x....

Массив: Посчитать сумму всех элементов, кратных заданному числу x
Дан массив a из n целых чисел. Требуется посчитать сумму всех элементов, кратных заданному числу...

Дан одномерный массив и число k. Найти сумму квадратов элементов массива, кратных заданному числу k
Вывести все в stringgrid1. Можно пожалуйста с объяснениями.

Посчитать сумму всех элементов, кратных заданному числу
Дан массив a из n целых чисел. Требуется посчитать сумму всех элементов, кратных заданному числу x.

2
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 535
Записей в блоге: 2
04.12.2012, 16:09 2
Лучший ответ Сообщение было отмечено Future KIP как решение

Решение

смотри, можно через процедуру:
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
const n=20;
type mas=array [1..n] of integer;
var a: mas; i,k: integer;
{подпрограмма}
procedure Uslovie1 (b: mas; j: integer);
{эти переменные внутри подпрограммы и не влияют на внешние}
var i: integer;
begin
    for i:=1 to n do
                        if b[i]<0 then
                if b[i]mod j=0 then write(b[i]:4);
 
end;
BEGIN {главная программа}
        writeln('vvedite chislo k');
        readln(k);
        writeln('ishodny massiv: ');
        for i:=1 to n do begin
                a[i]:=random(101)-50;
                write (a[i]:4);
        end;
        writeln;
        write('4isla kratnie k: ');
        Uslovie1(a,k);
        readln;
END.
1
0 / 0 / 0
Регистрация: 03.12.2012
Сообщений: 6
04.12.2012, 17:43  [ТС] 3
Спасибо большое, будем пробовать))
 Комментарий модератора 
Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2012, 17:43

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Посчитать сумму элементов массива кратных заданному числу
Дан массив aa из n целых чисел. Требуется посчитать сумму всех элементов, кратных заданному числу...

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

Одномерный массив C#. Удаление из массива кратных заданному числу элементов
По условию числа, кратные k, должны удаляться из массива. Пока что они просто заменяются 0. К...

В матрице найти сумму нечетных элементов столбца и произведение отрицательных кратных заданному числу элементов строки
2 задача: Найти сумму нечетных элементов 2-го столбца и произведение отрицательных кратных 3...

В заданном массиве найти сумму всех четных элементов, или сумму элементов, кратных заданному числу
В заданном массиве S найти сумму всех четных элементов массива или сумму элементов, кратных...

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


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

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

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