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

[anffetka]

1.
Сгенерировать последовательность 100 случайных чисел х(i) с равномерным законом распределения в диапазоне [1, 10]. Сформировать новую последовательность, состоящую из элементов: y(i)=y(i-1)+x(i) , (y(1)=X(1)).
Для получения последовательности вычислить среднее значение, вывести на печать в виде гистограммы, разделив диапазон на 10 интервалов.

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

3.
Вычислить корни полинома:
z=2(x^5)-4(x^4)+1,3(x^3)-8(x^2)+x-1
Построить график при -1<=x<=1, dx=0,01

[puporev]

Если я правильно понял условие первой задачи, то так.

uses crt;
const n=100;
var x,y:array[1..n] of real;
    s:array[1..n div 10] of real;
    i,k,j:integer;
    sr:real;
begin
clrscr;
randomize;
writeln('Последовательность X:');
for i:=1 to n do
 begin
  x[i]:=9*random+1;
  write(x[i]:4:1);
 end;
writeln;
writeln('Последовательность Y:');
y[1]:=x[1];
sr:=y[1];
write(y[1]:8:1);
for i:=2 to n do
 begin
  y[i]:=y[i-1]+x[i];
  sr:=sr+y[i];
  write(y[i]:8:1);
 end;
writeln;
k:=n div 10;
for i:=1 to k do
 begin
  s[i]:=0;
  for j:=k*(i-1)+1 to k*i do
  s[i]:=s[i]+y[j]/k;
 end;
writeln('Среднее по интервалам:');
for i:=1 to k do
write(s[i]:8:2);
readln;
clrscr;
writeln('Распределение по 10 интервалам средних значений последовательности Y:');
writeln;
for i:=1 to k do
 begin
  textcolor(i+4);
  write((k*(i-1)+1):2,'-',k*i:3,'  ');
  for j:=1 to round(s[i]/10) do write(#219);
  write(s[i]:8:2);
  writeln;
 end;

[anffetka]

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