Сделать проект на компьютере

Объяснение:1.     В ячейке A1 ввести название аргумента Х.

2.     В ячейке A2 ввести название функции F(x).

3.     В ячейке B1 ввести начальное значение интервала табулирования 0.

4.     В строке меню «Главная» в группе «Редактирование» нажмите на кнопку  «Заполнить» - «Прогрессия». Выберите расположение по строкам – Шаг 0,2 – Предельное значение 2 – ОК. В результате в строке появляется ряд значений аргумента х

5.     В ячейке B2 ввести формулу =КОРЕНЬ(B1)/(B1+1).

6.     Методом автозаполнения скопировать ее в ячейки C2:L2. Этот метод заключается в следующем: выделить ячейку B2, встать на маркер заполнения в правом нижнем углу ячейки, нажать левую клавишу мыши и протащить ее до ячейки L2. В результате в этих ячейках появится значение функции при соответствующих значениях х.

7.     В строке меню «Главная» в группе «Ячейка» нажмите на кнопку «Формат» - «Формат ячеек». Далее выберите вкладку «Граница» и оформите таблицу.

8.     Щелчком на первой ячейке выделите строку. В строке меню «Главная» в группе «Ячейка» нажмите на кнопку «Вставить» - «Вставить строки на лист».

9.     В новой строке сделать объединение ячеек, ввести заголовок.

Построение графика.

10.                       Выделить ячейки B3:L3.

11.                       В строке меню Вставка, в группе Диаграммы, нажмите на кнопку График, выберите тип График.

12.                       Выделите диаграмму, щелкнув на нее левой кнопкой мыши.

13.                       В появившемся окне Работа с диаграммами выберите Макет.

14.                       В группе Данные нажмите Выбрать данные, Подписи горизонтальной оси, Изменить, в Диапазоне подписей оси поставьте курсор, мышью в рабочем окне выделите ячейки В2:L2 (там , где находятся значения Х), ОК, ОК.

15.                       В группе Подписи нажмите на кнопку Название диаграммы.

16.                       Введите название График функции.

1. Современное решение

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var min:=a.Min;
  a.Transform(x->x<0?x*min:x); a.Println
end.

Пример
n= 15
-34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18
1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864

2. Популярное до сих пор в школах решение на TurboPascal 7.01 (1983г.)

uses Crt;
const
  nn=100;
var
  i,n,min:integer;
  a:array[1..nn] of integer;
begin
  ClrScr;
  Randomize;
  Write('n='); Read(n);
  min:=100;
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]<min then min:=a[i]
    end;
  Writeln;
  for i:=1 to n do
    if a[i]<0 then a[i]:=a[i]*min;
  for i:=1 to n do
    Write(a[i],' ');
  Writeln;
  ReadKey
end.