Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 01.11.2012
Сообщений: 3
1

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

01.11.2012, 21:23. Показов 3129. Ответов 1
Метки нет (Все метки)

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

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

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

Найти сумму и произведение всех элементов одномерного массива, кратных заданному числу
Есть похожая программа, только с условием, больших заданного числа. Как переделать?program primer;...

Вычислить по формуле значения элементов массива, и сумму значений элементов массива, кратных заданному числу
Вычислить сумму элементов массива а, значения которых кратные N, если элементы массива...

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

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

1
Дзæуджыхъæу
232 / 204 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
01.11.2012, 21:45 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Вроде бы так:
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
var a:array [1..1000,1..1000] of integer;
    n,m,i,j,sum,krel,sum2:integer;
begin
write(' NxM= ');
readln(n,m);
write('krat chislo= ');
readln(krel);
sum:=0;
sum2:=0;
for I:= 1 to n do
    begin
    for j:= 1 to m do
        begin
        a[i,j]:=random(101);
        write(a[i,j]:3);
        if a[i,j] div 2 <> 0 then sum:=sum+a[i,j];
        if krel<>0 then
           if a[i,j] div krel=0 then sum2:=a[i,j]+sum2
        end;
    writeln;
    end;
writeln('sum necet= ',sum,#13,'sum krat ',krel,' = ',sum2);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2012, 21:45

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

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

Найти сумму элементов массива у которых сумма чисел равняется заданному числу.
Здравствуйте. Задача: Найти сумму элементов массива у которых сумма чисел равняется заданному...

Функция поиска количества элементов массива,кратных заданному числу
{ Функция поиска количества элементов массива,кратных заданному числу, заданное число-v} function...

В массив A[N] включены натуральные числа. Найти сумму элементов массива, кратных заданному K.
В массив A включены натуральные числа. Найти сумму элементов массива, кратных заданному K.


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

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

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