Массив

[_Marchel_]

Дан массив X(N) (N<=60). Получить массив М по правилу:

.......X[i]+cos(X[i]), при X[i]>=1
М[i]=
.......1+модуль X[i], при X[i]<1

Найти значения и индексы минимального и максимального элементов массива М.

помогите с программой пожалуйста.

[Stilet]

А можешь показать свою попытку кода ввода массива Х?

[_Marchel_]

program ABC;
var A:array[1..60] of integer;
 х,y,i,k,:integer;
begin
 //ручной ввод массива
 writeLn('Вводим элементы массива Х:');
 for i:=1 to 60 do
 begin
 write('A[',i,']=');
 readLn(A[i]);
 end;

как то так.

[Stilet]

Ну а теперь в цикле:

if x[i]>=1 then m[i]:=x[i]+cos(x[i]) else m[i]:=1+abs(x[i]);

И выводи массив М