Заполнить массив из 15 элементов случайным образом вещественными значениями, лежащими в диапазоне от 5 до 15. найти сумму шести первых элементов массива. увеличить все элементы на 7 раз.
Var ar:array[1..n] of integer; i,sum:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(5,15); write(ar[i]:4); if i<=6 then sum:=sum+ar[i]; end; writeln; writeln('Sum=',sum); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i]*7; write(ar[i]:6); end; end.
Пример работы программы: First array: 9 15 5 12 13 6 11 7 6 14 13 6 6 10 11 Sum=60 Final array: 63 105 35 84 91 42 77 49 42 98 91 42 42 70 77
Const
n=15;
Var
ar:array[1..n] of integer;
i,sum:integer;
begin
randomize;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(5,15);
write(ar[i]:4);
if i<=6 then
sum:=sum+ar[i];
end;
writeln;
writeln('Sum=',sum);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]*7;
write(ar[i]:6);
end;
end.
Пример работы программы:
First array:
9 15 5 12 13 6 11 7 6 14 13 6 6 10 11
Sum=60
Final array:
63 105 35 84 91 42 77 49 42 98 91 42 42 70 77