Найти сумму элементов массива С[1..10] кратных 3

28.01.2010, 16:43. **Показов** 3480. **Ответов** 3

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

Здраствуйте! Нужно найти сумму элементов массива С[1..10] кратных 3. Напишите решение пожалуйста! Заранее очень благодарен!

@Dmc94 · 28.01.2010, 16:53

Pascal

var a,b,c,i:integer;
m:array[1..10] of integer;
s:array[1..10] of longint;
begin
for i:=1 to 10 do
readln(m[i]);
for i:=1 to 10 do
if (m[i] mod 3=0) then s[i]:=m[i];
for i:=1 to 10 do
a:=a+s[i];
writeln(a);
readln;
end.

31.01.2010, 17:17

а с комментариями как будет?

@Puporev · 31.01.2010, 17:21

Pascal

var a,b,c,i:integer;
m:array[1..10] of integer;
  s:integer; 
begin
for i:=1 to 10 do
readln(m[i]);
s:=0;
for i:=1 to 10 do
if (m[i] mod 3=0) then s:=s+m[i];
write(s);
readln;
end.

Neon_L
		1
	Найти сумму элементов массива С[1..10] кратных 3 28.01.2010, 16:43. Показов 3480. Ответов 3 Метки нет (Все метки) Здраствуйте! Нужно найти сумму элементов массива С[1..10] кратных 3. Напишите решение пожалуйста! Заранее очень благодарен!

Neon_L
	31.01.2010, 17:17	3
	а с комментариями как будет?

	31.01.2010, 17:21