Главная arrow icon Вопросы arrow icon Учеба и наука arrow icon Информатика arrow icon Помогите пож-ста с курсовой(продолжение))

Помогите пож-ста с курсовой(продолжение)) - вопрос №85455

В массив A(n) занесены натуральные числа.Найти сумму тех элементов, которые кратны заданному  K (n=15).

Ч.К.А.
01.06.11
Учеба и наука / Информатика
1 ответ

Ответы

Рейтинг: 7 133

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

Еva
Рейтинг: 121 998
6-й в Учебе и науке
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Похожие вопросы
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store
  • карты visa
  • карты master card
  • карты maestro
  • карты МИР
Мы используем файлы cookie. Пользуясь сайтом, вы принимаете условия нашего соглашения. Принять Детальнее