Решите пожалуйста задачу на Паскале

[Alfons]

Ну отзовитесь хоть кто-то

[miron]

Спасибо большое.Добрый человек.

[Angel of death]

Помогите пожалуйста решить 2 задачки на Паскале,возможно они и оч простые ток я совсем новичок и еще оч плохо разбераюсь в этом.

1.Составить программу расчета таблицы значений функции f(x) на интервале a<=x<=b в n равностоящих точках. Границы интервала a, b и количество точек n ввести с клавиатуры. Результаты вывести на печать.

F(x)=1+(sin2Пx/1+x)
Найти среднее арифметическое отрицательных значений функции f(x).

2. Даны натуральное n, действительные числа a1, … , an (все числа попарно различны). Поменять в этом массиве местами наименьший и последний элементы.

[BiM]

Помогите пожалуйста решить две задачи на Паскале.

1. Упорядочить по возрастанию последовательность из N случайных чисел.

2. Во вводимой последовательности из N чисел для каждого числа, начиная со второго, определить из остатка последовательности количество чисел больших данного числа и количество чисел, не попадающих в интервал от k1 до k2.

p.s. Это мой экзамен по информатике.

[alex_fcsm]

uses crt;
const n=10;
var i,j,temp:integer;
     a:array[1..n] of integer;

begin
clrscr;
randomize;
 for i:=1 to n do
  begin
   a[i]:=random(100);
   write(a[i],' ');
  end;
writeln;
  for i:=2 to n do
    for j:=n downto i do
      if a[j-1]>a[j] then
        begin
          Temp:=a[j-1];
          a[j-1]:=a[j];
          a[j]:=temp;
        end;
writeln;
for i:=1 to n do
 write(a[i],' ');
end.

ЧИТАЙТЕ ПРАВИЛА ФОРУМА - ВАМ ЖЕ ЛУЧШЕ БУДЕТ

[BERT]

решите пожалуйста задачу по паскалю

в матрице М(7,7).Определить номер строки сумма элементов, которой наибольшая