Заполнить массив из 10 элементов случайным образом вещественными значениями, лежащими в диапазоне от -50 до 50. найти сумму всех элементов массива. увеличить все элементы в 5 раз.
Var ar:array[1..n] of integer; sum,i:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(-50,50); write(ar[i]:4); sum:=sum+ar[i]; end; writeln; writeln('Sum=',sum); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i]*5; write(ar[i]:6); end; end.
Пример работы программы: First array: 24 45 28 40 -48 -7 29 43 -23 18 Sum=149 Final array: 120 225 140 200 -240 -35 145 215 -115 90
Const
n=10;
Var
ar:array[1..n] of integer;
sum,i:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(-50,50);
write(ar[i]:4);
sum:=sum+ar[i];
end;
writeln;
writeln('Sum=',sum);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]*5;
write(ar[i]:6);
end;
end.
Пример работы программы:
First array:
24 45 28 40 -48 -7 29 43 -23 18
Sum=149
Final array:
120 225 140 200 -240 -35 145 215 -115 90