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

Дан массив из n чисел найти сумму элементов которые кратны 5

09.10.2019, 16:32. Показов 3793. Ответов 5
Метки нет (Все метки)

Не понимаю что делаю не правильно, вроде задача лёгкая но не получается. Помогите пожалуйста!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program massiv;
uses crt;
const n=100;
Var a:array[1..n] of integer;
    i,s:integer;
begin
     clrscr;
     for i:=1 to n do
      begin
        a[i]:=random(100)-1;
      end;
      S:=0;
      for i:=1 to n do
         begin
              if (a[i] mod 5 =0) then
               S:=S+a[i];
                end;
       writeln('Summa  = ',s);
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2019, 16:32
Ответы с готовыми решениями:

Дан массив Р(30) целых чисел. Найти среднее арифметическое тех элементов массива, которые кратны трем
Добрый вечер! Если не сложно подскажите, что не так в моем коде. Вот задание: Дан массив Р(30)...

Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.
ПОМОГИТЕ пож.... Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.

Массив натуральных чисел. Найти сумму тех элементов, которые кратны данному k
В массив a занесены натуральные числа. Найти сумму тех элементов, которые кратны данному k, которое...

Дан массив целых чисел. Найти элементы, которые кратны 3 и 7
дан массив целых чисел найти элементы которые положительны кратны 3 и 7

5
254 / 147 / 69
Регистрация: 29.07.2018
Сообщений: 1,170
09.10.2019, 18:10 2
daniil232425
Pascal
1
2
3
4
5
begin
  var mas := ArrRandom(ReadInteger);
  mas.Println;
  mas.Where(i -> i mod 5 = 0).Sum.Println;
end.
0
Alvin Seville
337 / 269 / 132
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
09.10.2019, 18:24 3
daniil232425, Ваш код может быть упрощён:
- program может быть удалено
- ClrScr() может быть заменён на System.Console.Clear()
- объявление константы может быть удалено
- длина массива может задаваться во время выполнения программы через ReadlnInteger(...)
- массив может быть сделан динамическим
- цикл заполнения массива может быть заменён на вызов ArrRandomInteger(...)
- переменные цикла могут быть описаны на строке с for
- Writeln(...) может быть заменен на Println(...)
0
140 / 107 / 56
Регистрация: 15.09.2017
Сообщений: 425
09.10.2019, 18:37 4
Цитата Сообщение от Соколиный глаз Посмотреть сообщение
- Writeln(...) может быть заменен на Println(...)
И в чём упрощение?
0
Alvin Seville
337 / 269 / 132
Регистрация: 25.07.2014
Сообщений: 4,537
Записей в блоге: 9
09.10.2019, 18:51 5
kotAV, в том, что при использовании Print/Println возможно строить цепочки из вызовов функций, в отличие от Write/Writeln:

Pascal
1
2
3
begin
  Arr(1, 2, 5, 10).Println().Where(x -> x mod 5 = 0).Sum().Println();
end.
Это избавляет от нужды заводить дополнительные переменные. Но, разумеется, при использовании Print/Println в изначальной программе ТС разницы не будет заметно.
0
Эксперт Pascal/Delphi
2383 / 1295 / 1491
Регистрация: 29.08.2014
Сообщений: 4,651
10.10.2019, 06:51 6
Цитата Сообщение от daniil232425 Посмотреть сообщение
но не получается
что у вас не получается?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.10.2019, 06:51
Помогаю со студенческими работами здесь

Массив: Найти сумму тех элементов, которые кратны данному К.
В массив A занесены натуральные числа. Найти сумму тех элементов, которые кратны данному К. ...

Массив: Найти сумму элементов, которые больше 20, меньше 60 и кратны 7.
В двухмерном массиве найти сумму элементов, которые больше 20, меньше 60 и кратны 7.

Дан массив n длины, нужно найти числа кратны 9 и посчитать сумму таких чисел
Ребят помогите решить пару задач 1) дан массив n длины, нужно найти числа кратны 9 и посчитать...

Найти сумму положительных элементов массива целых чисел, которые кратны 7
Найти сумму положительных элементов массива целых чисел, которые кратны 7. Размер массива – 15....


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

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

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