В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
кэт324
кэт324
19.04.2021 14:07 •  Информатика

Паскаль

Дан целочисленный массив из 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.

Показать ответ
Ответ:
fiasko2
fiasko2
12.10.2020 11:02

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.

Объяснение:

Все переменые использовал

Отметь как лучший ответ)

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота