Составить программу вычисления значений функции f(x) на отрезке [a, b] с шагом h. результат представить в виде таблицы, первый столбец которой – значения аргумента, второй – соответствующие значения функции: f(x)=2cos x – 1

Program pr; uses crt; var  a,b,x,y,h: real; begin writeln('введите a,b'); readln(a,b); writeln('введите шаг'); readln(h); x: =a; while x< =b do begin y: =2*cos(x)-1; write('x=',x: 6: 2, ' y=',y: 6: 2); writeln; x: =x+h; end; readln; end.

Var n,a,b,i,min: integer; mass: array[1..100000] of integer; begin writeln('введите кол-во элементов массива'); read(n); writeln('введите числа'); for i: =1 to n do// задаем массив пока i  не станет равно n (i: =i+1  ) read(mass[i]); //считываем массив с индексом i min: =mass[1]; // обозначаем первый элемент массива за первый b: =1; // индекс от первого элемента массива for i: =1 to n do//цикл  задаем массив пока i  не станет равно n (i: =i+1  ) if mass[i]< min then  begin//при условии что массив будет меньше первого числа то b: =i; // обозначаем индекс min: =mass[i]; // обозначаем новый минимальный массив end; for i: =1 to b-1 do//  задаем массив пока i  не станет равно b-1 (i: =i+1  ); и еще b-1 значит чтобы само число b не входило в цикл mass[i]: =mass[i]*mass[b]; // домножаем на меньший массив writeln('полученный массив'); // вывод массива for i: =1 to n do write(mass[i]: 6); end.

Const   n = 5; { это позволяет в одном месте изменить количество чисел } type   numeric = real; { это позволяет в одном месте изменить тип чисел } var   max, min: numeric;   i: integer;   a: array[1..n] of numeric; begin   writeln('введите ', n, ' произвольных чисел через пробел');   read(a[1]);   min : = a[1]; max : = min;   for i : = 2 to n do   begin       read(a[i]);       if max < a[i] then max : = a[i]       else       if min > a[i] then min : = a[i]   end;   writeln('минимальное введенное: ', min, ', максимальное: ', max) end. тестовое решение: введите 5 произвольных чисел через пробел 34 157 -84.54 14.843 -13.64 минимальное введенное: -84.54, максимальное: 157