36

Задан массив из N элементов. Вычислить сумму тех элементов, которые кратны 5.

21 февраля 2023

Задан массив из N элементов. Вычислить сумму тех элементов, которые кратны 5.

категория: информатика



54

Program t1; Var A: array [1… 1000] of integer; N, i: Byte; s: Longint; BeginReadln (N); For i: =1 to N doBeginReadln (A[i]); If A[i] mod 5=0 thens: =s+A[i]; End; Write (s); Readln; End.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...