Учеба и наука

• Всего ответов: 1


Максим
6-й в Религии
5.0 11 отзывов
program kuzakabuzaka;
const
  N=15;
var
  A:array[1..15] of integer;
  k,i,sum:integer;
begin
  write('Введите k:'); read(k);
  sum:=0;
  for i:=1 to N do
  begin
    write('A[',i,']='); read(A[i]);
    if A[i] mod k = 0 then sum:=sum+A[i];
  end;
  writeln('Сумма всех кратных k равна ',sum);
end.
июнь 1, 2011 г.

Похожие вопросы