Дан массив 10 целых чисел. Найти сумму элементов массива, кратных числу N (вводится с клавиатуры). На Паскале!!!!
Ответы
Ответ дал:
0
program raf105;
var a:array[1..10] of integer;
sum,n,i:integer;
begin
write('Введите число N: ');
readln(n);
writeln('Введите 10 чисел по очереди:');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i] mod n)=0
then sum += a[i]
end;
writeln('Сумма чисел кратных ',n,' равна ',sum);
end.
Язык PascalABC
Вас заинтересует
1 год назад
2 года назад
7 лет назад
7 лет назад