begin. fori:=1 to10 do. fori:=1 to10 do. forj:=1 to10-i do. fori:=1 to10 do. forj:=1 to10-i do

Задача специалисты:

1.Дан файл, в котором записан массив из 10 целых чисел. Отсортировать по убыванию и по возрастанию массив, найти минимальный и максимальный элемент массива и записать данные в выходной файл.

Решение

programzs18;

var

a: array[1..10] ofinteger;

i, j,max, min, s: integer;

begin

assign (input , 'input.txt');

assign (output, 'output.txt');

reset(input);

fori:=1 to10 doread (input, a[i]);

min:=100;

max:=0;

fori:=1 to10 do

begin

ifa[i]<min thenmin:= a[i];

ifa[i]>max thenmax:=a[i];

end;

rewrite(output);

writeln(output, 'max=', max, ' min=', min);

fori:=1 to10 do

forj:=1 to10-i do

ifa[j]>a[j+1] then begins:= a[j]; a[j]:= a[j+1]; a[j+1]:=s; end;

write(output, 'vozr ');

fori:=1 to10 dowrite(output, a[i], ' ' );

fori:=1 to10 do

forj:=1 to10-i do

ifa[j]<a[j+1] then begins:= a[j]; a[j]:= a[j+1]; a[j+1]:=s; end;

writeln;

write (output, 'ybuv');

fori:=1 to10 dowrite(output, a[i], ' ' );

close (input);

close (output);

end.