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

Найти количество и сумму тех членов данного массива, которые делятся на 5 и не делятся на 7

26.04.2015, 23:44. Показов 5222. Ответов 4
Метки нет (Все метки)

написать программу на паскале.Дан массив целых чисел а0,...,аn-1. Найти количество и сумму тех членов данного массива, которые делятся на 5 и не делятся на 7.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2015, 23:44
Ответы с готовыми решениями:

Найти сумму тех чисел, которые делятся на 5 или на 7
Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.

Найти сумму всех двузначных чисел, которые делятся на 3 и не делятся на 4
Помогите решить 3 задачи на циклы на паскале, а то забыл их совсем 1 Найти 10 произвольных целых...

Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.
Надо срочно решить несколько задач, моя вечная благодарность решившему прилагается: 1)Составить...

Определить сумму и количество элементов массива, которые делятся на 7 и 3 одновременно
дан одномерный массив a(n) целых чисел определить сумму и кол-во элементов которые делятся на 7 и 3...

4
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
27.04.2015, 08:56 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
const
  n=20;
var
  m: array[1..n] of integer;
  i:byte;
  k,sum:integer;
begin
  randomize;
  sum:=0; k:=0;
  for i:=1 to n do
  begin
    m[i]:=random(n)+1;
    write(m[i],' ');
    if (m[i] mod 5 = 0) and (m[i] mod 7 <> 0) then
      begin
        sum:=sum+m[i];
        inc(k);
      end;
  end;
  Writeln;
  writeln('Sum = ',sum);
  writeln('K = ',k);
  readln;
end.
0
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 4
27.04.2015, 14:03  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
program rrr;
Uses crt;
Var i,s:integer;
Begin
Clrscr;
s:=0;
For i:=0 to 50 do
if (i mod 5=0) and (i mod 7<>0) then
Begin
s:=s+i;
Write(i,' ');
End;
WriteLn('Ñóììà: ',s);
ReadLn;;
End.
не могу написать чтобы количество выводило.суму выводит.но вместо количества пишет какие цифры.как быть
0
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
27.04.2015, 18:19 4
Лучший ответ Сообщение было отмечено мансур как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program rrr;
Uses
  crt;
Var
  k,i,s:integer;
Begin
  Clrscr;
  s:=0; k:=0;
  For i:=0 to 50 do
    if (i mod 5=0) and (i mod 7<>0) then
      Begin
        s:=s+i;
        k:=k+1;
        Write(i,' ');
      End;
  writeln;
  WriteLn('Sum: ',s);
  WriteLn('Quantity: ',k);
  ReadLn;
End.
0
0 / 0 / 0
Регистрация: 19.01.2015
Сообщений: 4
27.04.2015, 19:03  [ТС] 5
спасибо большое теперь все работает
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.04.2015, 19:03
Помогаю со студенческими работами здесь

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

Подсчитать количество и сумму элементов массива, которые делятся на 5 без остатка
массив целых чисел из 10 элементов заполнить случайным образом. Подсчитать количество и сумму...

Вложенные циклы. Найти количество и сумму членов данной последовательности, что делятся на заданное число.
Всем привет! Помогите пожалуйста решить задачу в Pascal: Дано натуральное число n и целые числа...

Из массива вывести те числа которые делятся на 2 и 3 и больше данного числа, узнать сумму этих чисел
народ будти добры помогите решить задачки! no 1! из халявных чисел массива вывести те числа...


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

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

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