Вычислите сумму элементов массива, кратных X - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Сформируйте одномерный массив из n элементов. Выведите его на экран в строку. Вычислите сумму элементов массива, кратных x (x вводить с клавиатуры ).

Решение задачи: «Вычислите сумму элементов массива, кратных X»

textual
Листинг программы
  1. program pr;
  2.  
  3. var
  4.   i, n, sum, x: integer;
  5.   a: array [1..100] of integer;
  6.  
  7. begin
  8.   sum := 0;
  9.   writeln('Введите число х');
  10.   readln(x);
  11.   writeln('Введите размер массива');
  12.   readln(n);
  13.   for i := 1 to n do
  14.   begin
  15.     a[i] := random(21);      // диапазон заполнения массива cnавь любой(здесь от 0 до 20)
  16.     write(a[i]:3);
  17.     if (a[i] mod x = 0) then
  18.       sum := sum + a[i];
  19.   end;
  20.   writeln;
  21.   writeln('Сумма элементов кратный ', x, ': ', sum);
  22. end.

Объяснение кода листинга программы

В данном коде на Turbo Pascal пользователь должен ввести два числа: размер массива и число X. Затем программа генерирует случайные числа для каждого элемента массива в диапазоне от 0 до 20 (это значение можно изменить). Если сгенерированное число делится на X без остатка, то оно добавляется к сумме. В конце программа выводит сумму элементов, кратных X.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.133 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы