Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.76/25: Рейтинг темы: голосов - 25, средняя оценка - 4.76
0 / 0 / 0
Регистрация: 22.10.2019
Сообщений: 2
1

Знайти суму всіх елементів, кратних семи

22.10.2019, 20:56. Просмотров 4429. Ответов 2
Метки нет (Все метки)


Задано масив цілих чисел M(n). Знайти суму всіх елементів, кратних семи. Якщо таких елементів немає, ввидати повідомлення про це.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.10.2019, 20:56
Ответы с готовыми решениями:

5. Визначити середнє значення елементів масиву розміру N. Знайти індекс елемента масиву, найбільш близького до отриманог
Удалено, не разрешенный язык.

Знайти середнє арифметичне елементів кожного з непарних стовпців
Задано квадратну матрицю A розміром N x N (N<=10), що складається з дійсних елементів. Знайти...

Визначити суму невід’ємних елементів в одновимірному числовому масиві
паскаль решение

Знайдіть суму, кількість та середнє арифметичне всіх цілих чисел з інтервалу [100;200], кратних 17
Знайдіть суму, кількість та середнє арифметичне всіх цілих чисел з інтервалу , кратних 17.

2
Модератор
62919 / 46943 / 32350
Регистрация: 18.05.2008
Сообщений: 113,743
23.10.2019, 05:56 2
Перепишите задание на русском языке, соблюдайте правила форума.
0
114 / 22 / 14
Регистрация: 13.04.2012
Сообщений: 416
24.10.2019, 01:20 3
онотоле негодуе
это кстати русский язык, точнее суржик, южно-русский диалект: задан массив целых чисел, найти сумму всех элементов кратных 7, если таких элементов нет то сообщить об этом.... 1й курс... ну чё, опять array of integer, или array[1..100]of integer? вроде по заданию массив задан, и пользователь не устанавливает его длину, и не вводит ничего, просто запускает программу которая всё выдаёт.... но так не интересно, по этому:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  c,r:integer;
  m:array of integer;
begin
  write('Введидете размер массива: ');
   readln(r);
   SetLength(m, r);
  for var i:=0 to r-1 do
    m[i]:=i+1;
  for var i:=0 to r-1 do
    if m[i] mod 7 = 0 then  
     c:=c+m[i];
   if c=0 then writeln('таких елементів немає') else
 writeln(c);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.10.2019, 01:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Знайти суму «внутрішніх» елементів матриці
Дана матриця розмірності NxM. Знайти суму «внутрішніх» елементів матриці. «Внутрішніми» елементами...

Дана матриця 4х3. Визначити суму елементів кратних 3 в кожному рядку і помістити на місце елемента, номер якого збігаєть
Памагите!

Створити числовий масив А з 10 елементів. Обчислити суму від'ємних елементів.
Створити числовий масив А з 10 елементів. Обчислити суму від'ємних елементів. Правило форума 1.4....

9. В одномірному масиві В, що складається з N цілих елементів, з проміжку [-20;10], обчислити суму елементів
.В одномірному масиві В, що складається з N цілих елементів, з проміжку , обчислити суму...


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

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

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