Question

В массиве А из 20 целых чисел найти сумму тех элементов, которые кратны заданному числу К (число К запрашивать с клавиатуры). Элементы массива в диапазоне от 10 до 100. ПАСКАЛЬ!

Решите правильно плиз, дам 25 баллов.

Answer 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.