Блок схема
Листинг программы
program mas;
uses crt;
var
m,a1,b1,q,j,e,max,max1,i,s,s1,b:integer;
a:array[1..100] of integer;
begin
clrscr;
randomize;
writeln('исходный массив');
for i:=1 to 10 do begin a[i]:=random(10); write(a[i],' '); end;
writeln;writeln('преобразованный массив');
for j:=1 to 10 do
for i:=1 to 9 do begin
if a[i] mod 2 <> 0 then
while a[i+1] mod 2 = 0 do
begin
e:=a[i];
a[i]:=a[i+1];
a[i+1]:=e; end;
end;
e:=0;s:=0;
for i:=1 to 10 do write(a[i],' ');writeln;
for i:=1 to 10 do
if a[i] mod 2 = 0 then e:=e+1 else s:=s+1 ;
write('колличество четных элементов',e,' колличество нечетных элементов',s,' ');
for j:=1 to 10 do begin
for i:=1 to e-1 do if a[i]>a[i+1] then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b; end;
for i:=e+1 to 10-1 do if a[i]<a[i+1] then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b; end;
end;
writeln;
writeln('результат программы');
for i:=1 to 10 do write(a[i],' ');writeln;
readkey ;
end.
Результат программы
Заключение
Данная работа позволила углубится в познании в обработки информации в програмном обеспечении Pascal 7.0. А именно сортировка массива , перемещение определённых элементов в заданный участок, нахождение макс. И мин. Значения.
Список использованной литературы
1) Перминов О. Н. Язык программирования Паскаль : Справочник. — М.: Радио и связь, 1989. —ISBN 5-256-00311-9
2) Культин Н.Б. Pascal 7.0 . Программирование на Object Pascal. — СПб.: БХВ-Петербург, 2001.— ISBN 5-94157-112-7
3) Моргун А. Н. Программирование на языке Паскаль (Pascal). Основы обработки структур данных. — М.: Диалектика, 2005. — ISBN 5-8459-0935-X
4) Рубенкинг Н.Дж. Турбо Паскаль для Windows: в 2-х томах. Пер. с англ.. — М.: Мир, 1993.