Вычислите сумму элементов массива, кратных X - Turbo Pascal
Формулировка задачи:
Сформируйте одномерный массив из n элементов. Выведите его на экран в строку. Вычислите сумму элементов массива, кратных x (x вводить с клавиатуры ).
Решение задачи: «Вычислите сумму элементов массива, кратных X»
textual
Листинг программы
- program pr;
- var
- i, n, sum, x: integer;
- a: array [1..100] of integer;
- begin
- sum := 0;
- writeln('Введите число х');
- readln(x);
- writeln('Введите размер массива');
- readln(n);
- for i := 1 to n do
- begin
- a[i] := random(21); // диапазон заполнения массива cnавь любой(здесь от 0 до 20)
- write(a[i]:3);
- if (a[i] mod x = 0) then
- sum := sum + a[i];
- end;
- writeln;
- writeln('Сумма элементов кратный ', x, ': ', sum);
- end.
Объяснение кода листинга программы
В данном коде на Turbo Pascal пользователь должен ввести два числа: размер массива и число X. Затем программа генерирует случайные числа для каждого элемента массива в диапазоне от 0 до 20 (это значение можно изменить). Если сгенерированное число делится на X без остатка, то оно добавляется к сумме. В конце программа выводит сумму элементов, кратных X.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д