type mas=array[1..100] of integer;
procedure SortV(v:mas;var x:byte);
var i,j:byte;
b:integer;
begin
for i:=1 to x-1 do
for j:=i+1 to x do
if v[i]>v[j] then
begin
b:=v[i];
v[i]:=v[j];
v[j]:=b;
end;
end;
procedure SortU(var v:mas;x:byte);
var i,j:byte;
b:integer;
begin
for i:=1 to x-1 do
for j:=i+1 to x do
if v[i]<v[j] then
begin
b:=v[i];
v[i]:=v[j];
v[j]:=b;
end;
end;
function Minimal (v:mas; n:integer):integer;
var i,MinElem:integer;
begin
MinElem:=v[1];
for i:=1 to n do
if v[i]<MinElem then
MinElem:=v[i];
Minimal:=MinElem;
end;
function Maximal (v:mas; n:integer):integer;
var i,MaxElem:integer;
begin
MaxElem:=v[10];
for i:=1 to n do
if v[i]<MaxElem then
MaxElem:=v[i];
Maximal:=MaxElem;
end;
var a,b:mas;
min, max,i,j:byte;
t:boolean;
n:byte;
begin
n:=20;
Writeln('Исходная матрица a');
For i:=1 to n do
Begin
a[i]:=random(10)-5;
Write(a[i]);
end;
Writeln;
Writeln('Исходная матрица b');
For i:=1 to n do
Begin
b[i]:=random(10)-5;
Write(b[i]);
end;
Writeln;
for i:=1 to n do begin
SortV(a,n);
SortU(b,n);
end;
for i:=1 to n do begin
write(a[i]);
writeln;
write(b[i]);
writeln;
end;
readln;
for i:=1 to n do
if Minimal(a,n)>Maximal(b,n) then
t:=true;
end.
Похожие записи/страницы:
- Написать программу нахождения максимального элемента одномерного массива с помощью опережающего объявления…
- В одномерных массивах А[1..N] и B[1..M] определить количество чисел – палиндромов ( т.е. таких, десятичная…
- В целочисленном массиве имеется единственный нулевой элемент ,разделяющий его на две части. В частном случае…
- Дана последовательность A размерности N,числа K и L.Сформировать последовательность B,в которую входят элементы…
- Создать матрицы А[n*m] и В[n*m]. Если элемент матрицы на главной диагонали > 0, то эту строку рассортировать по…
- Описать функцию Min(A,N) Max(A,N)2 вещественного типа, находящую минимальный и максимальный элемент массива A,…
- Описать процедуру RemoveForInc(A, N), удаляющую из вещественного массива A размера N «лишние» элементы так,…
- Найти наибольший элемент числового массива - Pascal(Pascal)