Задача Задача №116636
А
А
Дана программа нахождения суммы всех элементов массива. Перепишите программу таким образом, чтобы: 1) массив состоял из 20 элементов вещественного типа; 2) значения элементов массива должны меняться в интервале от 1 до 30; 3) в результате выполнения программы должна быть найдена сумма квадратов всех элементов масива Program massiv; Const n=10; Var a:array[1..n] of integer; s,i: integer; Begin WriteLn('Исходный массив:'); For i:=1 to n do begin a[i]:=random(10); Write('a[',i,']=',a[i],' '); end; s:=0; For i:=1 to n do s:=s+a[i]; WriteLn('Сумма всех элементов массива S=',s); end.
Привет! Чтобы изменить программу в соответствии с требованиями, вот её переписанный вариант:
Program massiv;
Const n = 20;
Var a: array[1..n] of real;
s, i: integer;
Begin
WriteLn('Исходный массив:');
For i := 1 to n do
begin
a[i] := Random(30) + 1;
Write('a[', i, '] = ', a[i], ' ');
end;
s := 0;
For i := 1 to n do
s := s + sqr(a[i]);
WriteLn('Сумма квадратов всех элементов массива S = ', s);
end.
Удачи на экзаменах! Если у тебя есть ещё вопросы, с радостью помогу!
