Паскаль
Дан целочисленный массив из 10 элементов. Элементы массива могут принимать целые значения от 0 до 1000. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести на экран сумму элементов массива, кратных 9. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого делится на 9. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
const N=10;
var a: array [1..N] of integer;
i, j, s: integer;
begin
for i:=1 to N do read(a[i]);
...
end.
130
164
Ответы на вопрос:
const N=10;
var a: array [1..N] of integer;
i, j, s: integer;
begin
j:=9;
for i:=1 to N do read(a[i]);
for i:=1 to N do
if a[i] mod j = 0
then begin
s:=s+a[i];
end;
writeln(s);
end.
Объяснение:
Все переменые использовал
Отметь как лучший ответ)
Популярно: Информатика
-
igorrusinov1911.12.2021 22:54
-
гений24808.11.2021 21:44
-
ВладыкаМор23.06.2020 13:54
-
Julianna200609.12.2022 13:54
-
vadimmatus07.03.2021 22:31
-
nemat110909oy85z919.03.2020 06:41
-
Jika03030211.10.2021 15:03
-
Karina2505200524.08.2021 02:19
-
valeraitrva14.10.2020 10:26
-
flinko424.07.2020 06:50