У=корень из 10-cosпх, х€[-1; 1], h=0.1

В PascalABC.Net
var
  x:real;
begin
  Writeln('  x      y');
  x:=-1;
  while x<=1 do
  begin Writeln(x:4:1,10-cos(Pi*x):10:5); x:=x+0.1 end
end.

Результат выполнения программы:
  x      y
-1.0  11.00000
-0.9  10.95106
-0.8  10.80902
-0.7  10.58779
-0.6  10.30902
-0.5  10.00000
-0.4   9.69098
-0.3   9.41221
-0.2   9.19098
-0.1   9.04894
 0.0   9.00000
 0.1   9.04894
 0.2   9.19098
 0.3   9.41221
 0.4   9.69098
 0.5  10.00000
 0.6  10.30902
 0.7  10.58779
 0.8  10.80902
 0.9  10.95106
 1.0  11.00000

Замечание: В PascalABC константа Pi предопределена. В других версиях, если транслятор напишет сообщение о том, что переменная Pi не описана, в начале программы добавьте const Pi=3.14159265;

Const n=8;
var x : array[1..n] of real;
   i : integer; min : real;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  x[i]:=20*random-10;
  write(x[i]:6:2,' ');     
 end;
 writeln;
min:=x[1];
for i:=2 to n do
 if x[i] < min then min:=x[i];
writeln('min=',min:6:2);
for i:=1 to n do
 if x[i]<0 then x[i]:=min;
writeln('Измененный массив:');
for i:=1 to n do write(x[i]:6:2,' ');
end.

Пример:
Исходный массив:
 -7.84  -9.97   7.00  -8.26  -7.71  -3.88   7.59  -2.32 
min= -9.97
Измененный массив:
 -9.97  -9.97   7.00  -9.97  -9.97  -9.97   7.59  -9.97 

По выполняемым функциям и возможности применения информационные технологии делят на используемые:1) в автономных компьютерах (ПЭВМ) и в локальных рабочих станциях (АРМ) в составе сетевых автоматизированных информационных систем (АИС) реального времени;2) в объектно-ориентированных, распределённых, корпоративных и иных локальных и сетевых информационно-поисковых, гипертекстовых и мультимедийных системах;3) в системах с искусственным интеллектом;4) в интегрированных АИС;5) в геоинформационных, глобальных и других системах.