Программы сортировки элементов массива.

1)поиск наименьшего (наибольшего элемента) и перемещение его.

program fff;

uses crt;

const n=15;

var a: array [1..n] of integer;

i, j, p: integer;

begin

clrscr;

for i: =1 to n do begin

a[i]: =random(40);

write(a[i]: 4) end;

writeln;

for i: =1 to n-1 do begin

for j: =i+1 to n do begin

if a[j]> a[i] {po ybuvan} then

begin p: =a[i]; a[i]: =a[j]; a[j]: =p end;

end;

for j: =1 to n do write(a[j]: 4);

writeln

end;

writeln;

for i: =1 to n do begin

write(a[i]: 4); end;

readln;

end.

2) метод поплавка

program ff;

uses crt;

const n=15;

var a: array [1..n] of integer;

i, j, p: integer;

begin

clrscr;

writeln(' massiv');

for i: =1 to n do begin

a[i]: =random(40);

write(a[i]: 4) end;

writeln;

writeln('sortirovka');

for i: =1 to n-1 do begin

for j: =1 to n-i do begin

if a[j]< a[j+1] {po ybuvan} then

begin p: =a[j]; a[j]: =a[j+1]; a[j+1]: =p end

end;

for j: =1 to n do write(a[j]: 4);

writeln

end;

writeln('posle cortirovki');

for i: =1 to n do write(a[i]: 4);

readln;

end.

Примеры составления блок – схем некоторых задач.

1) Найти четные элементы в одномерном массиве К(30). Организовать из найденных элементов отдельный массив (представлен фрагмент блок-схемы)

2) Найти максимальный элемент в одномерном массиве К(30) и его порядковый номер (представлен фрагмент блок-схемы)

3) В матрице А(6, 6) найти максимальный и минимальный элементы с указанием их номеров и среднее арифметическое значение всех ее элементов. Элементы матрицы задать с помощью генератора случайных чисел. Заданную матрицу распечатать.

4) В массиве А(50) найти минимальный элемент в каждом десятке элементов. Заданный массив распечатать.