Напишите скрипт в терминале linux, который рассчитывает результат формулы. количество чисел для расчета спрашивает программа, далее пользователь вводит все числа и затем пользователь вводит формулу для расчета. отобразить результат.
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(61) - 30; Write(a[i]:4); if a[i]>0 then a[i]:=2*a[i] else if a[i]<0 then a[i]:=7 end; Writeln; Writeln('После преобразования'); for i := 1 to n do Write(a[i]:4); Writeln end.
Главные цели создания распространения бесплатного софта выглядят так:Цель 1: Поиск работы разработчиком. Многие программисты создают и распространяют бесплатный софт в надежде, что программу оценят и им дадут крупный заказ. Вполне себе коммерческая цель.Цель 2: Продать написанный софт. Многие бесплатные программы со временем могут стать весьма популярными, при условии, что они хорошие. Крупные фирмы часто выкупают права на использования программ, которые завоевали популярность не только своей бесплатностью, но и удобством.Цель 3: Реклама себя и своей платной продукции. Разработчики бесплатного софта часто параллельно занимаются созданием платных программ. А бесплатно распространяющаяся программа это с одной стороны реклама разработчика, а с другой стороны, на бесплатных программах часто показывается коммерческая реклама, за которую заплачены деньги.Цель 4: Изменение статуса программы. Многие программы, добившись популярности и признания, сначала становятся условно платными, а потом и полностью переходят в состояние платных.Цель 5: Продвижение иных программных продуктов. Бесплатные программы часто распространяются с целью продвижения какого-либо языка программирования и т.д.Цель 6: Антимонопольная. Некоторые крупные фирмы специально создают и распространяют бесплатный софт для того, чтобы избежать обвинений в монополии в определённой доле рынка занятой программным обеспечением. Так что многие пользователи этих самых программ сильно бы удивились, узнав, кто стоит за их продвижением.
n = 15;
var
a: array[1..n] of integer;
i: integer;
begin
Randomize;
Writeln('Элементы массива');
for i := 1 to n do
begin
a[i] := Random(61) - 30;
Write(a[i]:4);
if a[i]>0 then a[i]:=2*a[i]
else
if a[i]<0 then a[i]:=7
end;
Writeln;
Writeln('После преобразования');
for i := 1 to n do Write(a[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
-20 15 16 20 0 16 -15 -1 -2 21 -8 -10 4 -24 1
После преобразования
7 30 32 40 0 32 7 7 7 42 7 7 8 7 2