Вычислить сумму квадратов всех нечетных чисел в одномерном массиве

20.10.2008, 13:08. **Показов** 4721. **Ответов** 3

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

вычислить сумму квадратов всех нечетных чисел в одномерном массиве из n натуральных чисел.n

=17

Vovan-VE · 20.10.2008, 18:54

Pascal

const N=17;
var arr:array[1..N]of word;
    i,sumQ:longint;
begin
    ... {откуда-то берутся данные в массиве}
    sunQ := 0;
    for i:=1 to N do
        if (n and 1)=1 then
            inc(sumQ,arr[i]*arr[i]);
    writeln(sunQ);
    ...
end.

@MadMag · 26.10.2008, 21:24

Форум помойму про Бейсик, а че тут паскаль?

Vovan-VE · 28.10.2008, 19:25

Сообщение от YeLLoW DucK

Форум помойму про Бейсик, а че тут паскаль?

А, точно. Это по инерции получилось

PureBasic

N = 17
DIM arr(1 TO N)
'... откуда-то берутся данные в массиве
sunQ = 0
FOR i = 1 TO N
    IF (n AND 1) = 1 THEN sumQ = sumQ + arr(i)*arr(i)
NEXT
PRINT sunQ

nikden27
		1
	Вычислить сумму квадратов всех нечетных чисел в одномерном массиве 20.10.2008, 13:08. Показов 4721. Ответов 3 Метки нет (Все метки) вычислить сумму квадратов всех нечетных чисел в одномерном массиве из n натуральных чисел.n=17

@MadMag (Yellow_Duck) 1261 / 130 / 15 Регистрация: 16.10.2008 Сообщений: 733
	26.10.2008, 21:24	3
	Форум помойму про Бейсик, а че тут паскаль? 0

	28.10.2008, 19:25