Дан массив из n чисел. получить сумму элементов массива, которые кратны 5 паскаль
294
428
Ответы на вопрос:
Program sum; var arr: array [1..10] of integer; n,i: integer; sum: integer; begin {заполнение массива и подсчёт суммы} n: =10; randomize; sum: =0; for i: =1 to n do begin arr[i]: =random(100); write(arr[i],','); if arr[i] mod 5=0 then sum: =sum+arr[i]; end; writeln; writeln('сумма элементов кратных 5 равна ', sum); readln; end.
// pascalabc.net 3.3, сборка 1547 от 07.10.2017 // внимание! если программа не работает, обновите версию! begin var a: =arrrandom(readinteger('n=',99); a.println; write('сумма элементов, кратных 5: ', a.where(x-> x mod 5=0).sum) end. пример n= 13 -66 87 95 10 18 69 62 -74 -24 -74 -92 57 -4 сумма элементов, кратных 5: 105
Популярно: Информатика
-
nikitenkov2006601.03.2023 11:05
-
AnastasyaOrlyanskaya27.07.2021 07:25
-
Zelikovakasimov03.03.2022 10:33
-
Reginka2408200712.05.2023 10:25
-
Мышонок1111122.02.2023 03:19
-
ds070824.11.2020 21:14
-
miraklim77726.04.2021 02:44
-
dbb2644415.08.2021 10:33
-
VaBaGaBa03.05.2023 17:01
-
sabinaaslanova31.01.2022 22:33