Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.

14.03.2011, 17:55. **Показов** 1130. **Ответов** 1

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

@Ev[G]eN · 14.03.2011, 18:12

Pascal

var
 arr: array[1..100] of integer;
 i, n, summ: integer;
begin
 summ:=0;
 readln(n);
  for i:=1 to n do
   begin
    read(arr[i]);
     if arr[i] mod 5<>0 then
      summ:=summ+sqr(arr[i]);
   end;
 writeln(summ);
end.

linaa
		1
	Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти. 14.03.2011, 17:55. Показов 1130. Ответов 1 Метки нет (Все метки) Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.

	14.03.2011, 18:12

Вычислите сумму квадратов всех элементов заданного массива X(N), за исключением элементов, кратных пяти.

Решение