Регистрация
mcmorgana
08.02.2022 21:01
Информатика
Есть ответ 👍

Дан массив натуральных чисел . найти сумму элементов , кратных заданному к.

207
473
Посмотреть ответы 2

Ответы на вопрос:

ashirova1209
ashirova1209
4,5(31 оценок)
Program num1; uses crt; var a : array [1..100] of integer; i,k,n, s : integer; begin clrscr; s: =0; write('k='); readln(k); write('n='); readln(n); for i: =1 to n do  readln(a[i]); for i: =1 to n do if (a[i] mod k)=0 then s: =s+a[i]; writeln('s=',s); end.
losp
losp
4,8(24 оценок)
Один человек съел 2 конфеты потому что остальные 5 съели по 1 конфеты

Популярно: Информатика