Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Вычислить сумму ряда. Y = X - x^2/2! + x^3/3! - x^4/4! +... С точностью E=10^-4 Где x = -0,3; -0,5; -0,7 https://www.cyberforum.ru/ pascalabc/ thread2517196.html	Pascal ABC Цикл: Вывести сумму всех нечётных чисел в интервале от a до b Вывести сумму всех нечётных чисел в интервале от a до b
Pascal ABC Исключить из файла заданную букву исключить из файла заданную букву https://www.cyberforum.ru/ pascalabc/ thread2517112.html	Pascal ABC Удаление столбца матрицы, в котором все элементы - четные https://www.cyberforum.ru/ pascalabc/ thread2517097.html удалить столбец, в котором все элементы четные, извините за мою глупость в наверное элементарных задачах..
Вставить строку со значением максимального элемента массива . Pascal ABC вставить строку со значением максимального элемента массива перед строкой ,в которой находится элемент введенный пользователем ...извините за прошлую тему….	Pascal ABC Переписать в одномерный массив m остатки от деления https://www.cyberforum.ru/ pascalabc/ thread2517051.html Переписать в одномерный массив m остатки от деления значений элементов целочисленного массива mm на 7.
Pascal ABC 9 школа 22 октября https://www.cyberforum.ru/ pascalabc/ thread2516993.html Примеры: Program Geograf1; Uses crt, GraphABC; var karta,R,A: ineger; Begin SetWindowSize (520,480); karta:=LoadPicture('belarus.gif'); DrawPicture (karta,10,10); SetBrushColor (clRed);	Pascal ABC Задачи с массивом Помогите написать программы с массивами
Pascal ABC Алгоритм для поиска всех путей между 2 вершинами графа здраствуйте помогите написать программу https://www.cyberforum.ru/ pascalabc/ thread2516904.html	Pascal ABC Вставить строку со значением максимального элемента массива перед строкой https://www.cyberforum.ru/ pascalabc/ thread2516869.html Вставить строку со значением максимального элемента массива перед строкой, в двух находящихся элементах введенных пользователем .. Заранее спасибо, люди добрые..
Pascal ABC Числа Армстронга. Натуральное число из n цифр является числом Армстронга, если сумма его цифр, возведенных в n-ю степень, равна самому числу (как, например, 153=13+53+33). Получить все числа Армстронга, состоящие из 5 цифр. turbo pascal	Pascal ABC Открытка и конверт https://www.cyberforum.ru/ pascalabc/ thread2516839.html Даны размеры прямоугольных открытки и конверта. Требуется определить, поместится ли открытка в конверт. Открытка может быть размещена под любым углом!! Входные данные: В первой строке находятся размеры открытки, во второй - размеры конверта. Pазмеры открытки и конверта - целые положительные числа, не превосходящие 100. Выходные данные: Если открытку можно вложить в конверт, вывести...

ololo111

164 / 50 / 36

Регистрация: 13.04.2012

Сообщений: 595

24.10.2019, 01:20

Знайти суму всіх елементів, кратних семи - Pascal ABC - Ответ 13929696

24.10.2019, 01:20. Показов 9616. Ответов 2

Метки (Все метки)

Ответ

онотоле негодуе
это кстати русский язык, точнее суржик, южно-русский диалект: задан массив целых чисел, найти сумму всех элементов кратных 7, если таких элементов нет то сообщить об этом.... 1й курс... ну чё, опять array of integer, или array[1..100]of integer? вроде по заданию массив задан, и пользователь не устанавливает его длину, и не вводит ничего, просто запускает программу которая всё выдаёт.... но так не интересно, по этому:

Pascal

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.

Вернуться к обсуждению:
Знайти суму всіх елементів, кратних семи Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

24.10.2019, 01:20

Готовые ответы и решения:

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

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

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

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

	24.10.2019, 01:20

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 цілих елементів, з проміжку , обчислити суму...

Наверх