П Р О Г Р А М М А

program SORT;

type x=array [1..20] of real;

var a:x;

i,j,n,k: integer;

R: real;

procedure max (q: integer; var nmax: integer);

var m: real;

l: integer;

begin

m:=A[1]; nmax:=1;

for l:=1 to q do

if A(l) > m then

begin

m:=A(l); nmax:=l

end

end; {конец описания процедуры}

begin

writeln ('n=');

readln (n);

writeln ('вводите массив');

for i:=1 to n do

readln (A[i]);

j:=n;

while j <> 1 do

begin

max (j,k);

R:=A(k); A(k):=A(j); A(j):=R;

j:=j-1

end;

writeln ('отсортированный массив');

for i:=1 to n do

writeln (A[i])

end.

Упражнения:

1. Написать процедуру, которая выводит на экран строку, состоящую из одинаковых символов. Длина строки и символ являются параметрами процедуры.

2. Написать функцию, которая вычисляет объем цилиндра. Параметрами функции должны быть радиус и высота цилиндра.

3. Написать процедуру, который вычисляет объем и площадь поверхности параллелепипеда.

4. Написать функцию, которая возвращает максимальное из двух целых чисел, полученных в качестве аргумента.

5. Вычислить и запомнить количество отрицательных элементов каждого столбца для матриц А(10,10) и В(5,7).

6. Составить программу для нахождения среднего балла группы по результатам сессии. Оценки групп сведены в матрицы А(25,5). В(23,5), С(22,5), D(24,5). Определить лучшую группу.

7. Составить процедуру – оператор для нахождения коэффициентов многочлена, равного произведению двух многочленов степени n и m. При помощи этой процедуры вычислить коэффициенты многочлена .

8. Даны три строки различной длины. Напечатать ту из них, где больше гласных латинских букв.

9. Даны три слова переменной длины. Составить слово, содержащее символы-цифры, входящие в данные слова.

10. Написать функцию present, которая возвращает процент от числа, полученного в качестве аргумента.