Паскаль, массивы

[Sparkman]

1) Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую – по убыванию.

program task_1;
uses crt;
var mas:array[1..10] of integer;
    i,j,tmp:integer;
begin
     clrscr;
     write('Massiv: ');
     randomize;
     for i:=1 to 10 do
     begin
          mas[i]:=random(100);
          write(mas[i],' ');
     end;
     writeln;
     for i:=1 to 4 do
         for j:=i+1 to 5 do
             if mas[i]>mas[j] then
             begin
                  tmp:=mas[i];
                  mas[i]:=mas[j];
                  mas[j]:=tmp;
             end;
     for i:=6 to 9 do
         for j:=i+1 to 10 do
             if mas[i]<mas[j] then
             begin
                  tmp:=mas[i];
                  mas[i]:=mas[j];
                  mas[j]:=tmp;
             end;
    Write('Result: ');
    for i:=1 to 10 do
    Write(mas[i],' ');
    Writeln;
    Writeln('Press enter to exit...');
    Readln;
end.

2)Заполнить массив из 500 элементов случайными числами в интервале [0..100]. Отсортировать его по возрастанию двумя способами – методом «пузырька» и методом «быстрой сортировки» . Вывести на экран число перестановок элементов массива в том и в другом случае. Массив выводить на экран не нужно.

3)Написать программу, которая считает среднее число шагов в двоичном поиске для массива из 32 элементов в интервале [0,100]. Для поиска использовать 1000 случайных чисел в этом же интервале.

4)Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива.

ПС: остальное завтра

[vlad88]

Дан одномерный вещественный массив В(40). Вычислить:

1) произведение максимального и минимального значения;

2)количество повторений первого элемента.

Помогите пож-та! Мне в четверг надо сдать! И это должна быть одна программа! надо мне сдать в четверг 11 ноября 2010

[Roof]

пиши на ICQ 364восемь17748 или на e-mail roofit7@mail.ru - сделаю недорого.

[RIO]

Здравствуйте! Я могу Вам помочь. Гарантирую качественную работу выполненную в срок, а главное не дорого. Моя аська 371824579