Question

Дан одномерный масив, найти сумму квадратов всех элементов массива и число нечётных чисел. Пожалуйста дайте полный ответ. Со всеми program, randomize и т.д.

Answer 1

Програм 1 + програм 2 = d 1 + d2 деленная на 2

Answer 2

я хочу нормальный ответ

Answer 3

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
nmax = 20;
var
A : array [1..nmax] of integer;
i, n : integer;
sum : real;
begin
randomize;
write('Размерность массива (не более ', nmax, '): ');
readln(n);
Writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(30) - 15;
write(A[i], ' ');
end;
writeln;
sum := 0;
for i := 1 to n do
sum := sum + a[i]*a[i];
writeln('Ответ: ', sum:0:0);
readln;
end. ЦИФРЫ СЛЕВА ТОЛЬКО РАССТАВЬ

Answer 4

как?