Предмет: Информатика,
автор: goloshapov112
Дан одномерный масив, найти сумму квадратов всех элементов массива и число нечётных чисел. Пожалуйста дайте полный ответ. Со всеми program, randomize и т.д.
Ответы
Автор ответа:
0
Програм 1 + програм 2 = d 1 + d2 деленная на 2
goloshapov112:
я хочу нормальный ответ
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. ЦИФРЫ СЛЕВА ТОЛЬКО РАССТАВЬ
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. ЦИФРЫ СЛЕВА ТОЛЬКО РАССТАВЬ
как?
Похожие вопросы
Предмет: Математика,
автор: swimdroid
Предмет: Физика,
автор: andrejilin11
Предмет: Русский язык,
автор: axramov2008
Предмет: Математика,
автор: ольга1232