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

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

21.06.2009, 12:27. Показов 1536. Ответов 3
Метки нет (Все метки)

В массив А[N] занесены натуральные числа.Найти сумму тех элементов,которые кратны данному K.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.06.2009, 12:27
Ответы с готовыми решениями:

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

Получить сумму тех членов массива, которые кратны 5
2. Получить сумму тех членов одномерного массива размерностью N, которые кратны 5.

Найти сумму положительных элементов массива, исключая при этом те элементы, которые кратны трём
я в паскале плохо разбираюсь помогите в долгу не останусь 1 задача Ввести двумерный ...

Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1
1.Для массива чисел Х1, Х2, ..., Хn найти сумму тех элементов, которые больше первого числа Х1.

3
24 / 24 / 13
Регистрация: 20.05.2009
Сообщений: 80
21.06.2009, 12:39 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
program lab;
type mas=array [1..100] of word;
var i,n,k:word; a:mas;
sum:integer;
begin
sum:=0;
writeln('Vvedite razmer massiva');
readln(n);
writeln('Vvedite k');
readln(k);
for i:=1 to n do 
begin
write('a[',i,']= ');
readln(a[i]);
end; 
writeln('poluchivcheysya massiv: ');
for i:=1 to n do 
begin
write(a[i],'  ');
if a[i] mod k =0 then sum:=sum+a[i];
end;
writeln('Summa=',sum)
readln;
end.
P.S НА ОШИБКИ НЕ ПРОВЕРЯЛ
1
Добрый самаритянин
1107 / 622 / 139
Регистрация: 31.03.2009
Сообщений: 2,567
21.06.2009, 12:40 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const
n=10;
var
a:array[1..n] of integer;
i,k,sum:integer;
begin
writeln('Ââåäèòå ÷èñëî K');
readln(k);
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i],' ');
if a[i] mod k=0
then sum:=sum+a[i];
end;
writeln;
writeln('Сумма = ',sum);
end.
0
16 / 16 / 16
Регистрация: 05.06.2009
Сообщений: 47
21.06.2009, 12:51 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
type mass=array[1..100] of integer;
 
var A:mass;
    i,n:integer;
    k,sum:integer;
begin
  clrscr;
  writeln('Vvedite razmer massiva:');
  readln(n);
  writeln('Vvedite elementy:');
  for i:=1 to n do
  readln(a[i]);
  writeln('Poluchennyi massiv:');
  for i:=1 to n do
  write(a[i]:3);
  sum:=0;
  writeln;
  writeln('Vvedite k:');readln(k);
  for i:=1 to n do
  if (a[i] mod k)=0 then sum:=sum+a[i];
  writeln('Summa chusel kratnyh k:',sum);
  readln;
end.
Добавлено через 9 минут 39 секунд
John_Pa9JIbHuK, чтобы числа записываись в массив с помошью рандома,надо еще написать randomize,и еще лучше бы присвоить вначале sum нулю.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2009, 12:51
Помогаю со студенческими работами здесь

Найти сумму и количество тех элементов массива, которые при делении на 7 дают остаток 1, 2 или 5
помогите пожалуйста не могу решить 6. Даны массивы А(30), В(20), С(15) целых чисел. Найти сумму и...

Найти сумму чисел массива, которые не кратны 3
РЕбят помогите найти ошибку. НАда составить программу которая находит сумму чисел массива которые...

Найти произведение тех элементов массива значения которых заключены в интервале [А, В] и кратны 3 или 5
Нужно сделать две программы: Дан массив X(N). 1) Найти произведение тех элементов массива...

Из элементов массива A, которые кратны 5, но не кратны 3, сформировать массив B
Помогите пожалуйста с задачей в паскале для курсовой работы : Дан массив A(M). Из элементов массива...


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

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

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