Найти сумму элементов, кратных данному K.

@Berus · Регистрация: 31.05.2010

Студворк — интернет-сервис помощи студентам

Дан массив натуральных чисел. Найти сумму элементов, кратных данному K.

@AI\EKCAH^P · 02.06.2010, 10:09

Pascal

var
k,i,n:integer;
a:array[1..100] of integer;
sum:integer;
begin
  write('n= ');readln(n);
  write('k= ');readln(k);
  for i:=1 to n do
  begin
    write('a[',i,']= ');
    readln(a[i]);
  end;
  for i:=1 to n do
  begin
    if a[i] mod k = 0 then
    sum:=sum+a[i];
  end;
  writeln;
  write('sum= ',sum);
  readln;
end.

@Berus · 02.06.2010, 10:31 **[ТС]**

Даны целые положительные числа а1, а2, ..., an. Найти среди них те, которые являются квадратами некоторого числа m.
А эта?

@Berus 0 / 0 / 0 Регистрация: 31.05.2010 Сообщений: 35
		1
	Найти сумму элементов, кратных данному K. 02.06.2010, 09:14. Показов 10698. Ответов 2 Метки нет (Все метки) Дан массив натуральных чисел. Найти сумму элементов, кратных данному K. 0

@Berus 0 / 0 / 0 Регистрация: 31.05.2010 Сообщений: 35
	02.06.2010, 10:31 [ТС]	3
	Даны целые положительные числа а1, а2, ..., an. Найти среди них те, которые являются квадратами некоторого числа m. А эта? 0

Опции темы

Найти сумму элементов, кратных данному K.

Решение