В массиве А из 20 целых чисел найти сумму тех элементов, которые кратны заданному числу К (число К запрашивать с клавиатуры). Элементы массива в диапазоне от 10 до 100. ПАСКАЛЬ!
Решите правильно плиз, дам 25 баллов.
Решите правильно плиз, дам 25 баллов.
Ответ
5/5
(1 оценка)
1
Мозг
Отвечающий
Ответ:
program prog;
var
a:array[1..20] of integer;
k,i,sum:integer;
begin
write('Введите делитель: '); readln(k);
sum:=0;
for i:=1 to 20 do begin
a[i]:=random(-90)+100;
write(a[i], ' ');
if a[i] mod k = 0 then sum:=sum+a[i];
end;
writeln();
write('Сумма чисел, кратных ', k,', равна ', sum);
end.