Заполнить массив из 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