Предмет: Информатика,
автор: kivi165
помогите
В массиве 9 чисел.Числа вводятся с клавиатуры. Найти сумму кратных 13.
Ответы
Автор ответа:
0
Программа:
Pascal:
var
arr: array[1..9] of integer;
i, n: integer;
begin
writeln('Введите массив: ');
for i := 1 to 9 do begin
readln(arr[i]);
if arr[i] mod 13 = 0 then n := n + arr[i];
end;
writeln('Массив: ', arr);
writeln('Сумма чисел, кратных 13: ', n);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: cabalina2016
Предмет: Русский язык,
автор: katerinazhevny
Предмет: Русский язык,
автор: таня1037
Предмет: История,
автор: Даниил111111111н
Предмет: Алгебра,
автор: nastyadobravol