Дана последовательность.

[Skia123]

1.Дана последовательность вещественных чисел. Расставить по возрастанию.

2.Дан массив чисел. Найти сумму и среднее арифметическое.

3.Дана матрица n x n целых чисел. Найти сумму чисел по главной диагонали.

4.Написать процедуру вычисления корней квадратного уравнения.

просто в школе паскаль не проходили, а в универе забросали задачками. позарез надо, а то без допуска останусь((
дД

[ROMA2PVT]

-I-

uses crt;
var
    a:array [1..100] of real;
    n,i,j:integer;
    x:real;
begin
clrscr;
randomize;
write('Введите количество элементов массива: ');
readln(n);
    writeln('Исходный массив: ');
   for i:=1 to n do
    begin
     a[i]:=random*3-1;
     write(' ',a[i]:1:2,' ');
    end;
 writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Массив отсортированный: ');
for i:=1 to n do
begin
write(' ',a[i]:1:2,' ');
end;
readln;
end.

-II-

uses crt;
var
    a:array [1..100] of integer;
    n,i,j,sum:integer;
    sr:real;
begin
clrscr;
sum:=0;
randomize;
write('Введите количество элементов массива: ');
readln(n);
    writeln('Исходный массив: ');
   for i:=1 to n do
    begin
     a[i]:=random(10)-2;
     write(a[i]:3,' ');
     sum:=sum+a[i];
     sr:=sum/n;
    end;
    writeln;
 writeln('Сумма элементов массива:=',sum,'; Среднее арифметическое:=',sr:1:2);
readln;
end.

-III-

uses
   crt;
var
    a:array [1..100,1..100] of integer;
    n,i,j,sum:integer;
begin
clrscr;
sum:=0;
randomize;
write('Введите N: ');
readln(n);
    writeln('Исходный массив: ');
   for i:=1 to n do
    begin
    for j:=1 to n do
    begin
     a[i,j]:=random(10)-2;
     write(a[i,j]:2,' ');
    end;
    writeln;
    end;
    writeln;
    sum:=0;
    for i:=1 to n do
    begin
    sum:=sum+a[i,i];
    write(a[i,i]:1,' ');
    end;
    writeln;
 writeln('Сумма элементов главной диагонали:=',sum);
readln;
end.

-IV-

var
a,b,c,x1,x2,d,x,x3,yravn:real;
y:integer;
begin
repeat
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Ввведите C: ');
readln(c);
yravn:=a*sqr(x);
D:=(b*b)-(4*a*c);
writeln('ДИСКРИМИНАНТ:=',D);
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('Первый корень X1:=',x1);
writeln('Второй корень X2:=',x2);
end
else
if D=0 then
begin
x3:=(-b)/(2*a);
writeln('Единственный корень X:=',x3);
end
else if D<0 then
begin
writeln('Вещественных корней нет!!!' );
end;
writeln('Задача решена? Если да, то напишите "1", иначе "2"');
read(y);
until(y=1);
end.

Последнюю на процедуру разбивать или сами сможете?
P.S.Только отвечайте побыстрее ато бежать на учёбу скоро надо.

[Skia123]

это первая я так понимаю!? Спасибо большое, но хотелось бы увидеть продолжение)))))

[Stilet]

это первая я так понимаю!?

Неправильно понимаешь - это все три задачи.

[Skia123]

Сообщение от Stilet

Неправильно понимаешь - это все три задачи.

когда я смотрела - была только первая. СПАСИБО ОГРОМЕННОЕ!

[Skia123]

Последнюю на процедуру разбивать или сами сможете?

Если бы сами((...лучше вы.

[ROMA2PVT]

var
a,b,c,x1,x2,d,x,x3,yravn:real;
y:integer;

procedure koren(Var k,f,g:real);
begin
D:=(k*k)-(4*f*g);
writeln('ДИСКРИМИНАНТ:=',D);
if d>0 then
begin
x1:=(-k+sqrt(d))/(2*f);
x2:=(-k-sqrt(d))/(2*f);
writeln('Первый корень X1:=',x1);
writeln('Второй корень X2:=',x2);
end
else
if D=0 then
begin
x3:=(-k)/(2*f);
writeln('Единственный корень X:=',x3);
end
else if D<0 then
begin
writeln('Вещественных корней нет!!!' );
end;
end;

begin
repeat
write('Введите A: ');
readln(a);
write('Введите B: ');
readln(b);
write('Ввведите C: ');
readln(c);

koren(b,a,c);

writeln('Задача решена? Если да, то напишите "1", иначе "2"');
read(y);
until(y=1);
end.

[Skia123]

нет слов - одни эмоции!
появилась еще одна проблема в виде курсовика.

[ROMA2PVT]

нет слов - одни эмоции!
появилась еще одна проблема в виде курсовика.

<<offtop>>
Не я курсовики не делаю.

[Skia123]

я напишу, а ты уж разберешься что это))))