Пользователь вводит длину и границы массива, программа выводит исходный массив, сортирует его по убыванию. Выводит на печать минимум и максимум, меняет их местами их местами в массиве и печатает его.
Пользователь вводит длину и границы массива, программа выводит исходный массив, сортирует его по убыванию. Выводит на печать минимум и максимум, меняет их местами их местами в массиве и печатает его.
Гость
Ответ(ы) на вопрос:
Гостьprogram picaso; uses crt;var i,n,ls,ld,min,max,temp,k,j,f,aux:integer; a:array[1..10] of integer;begin clrscr; writeln('Vedite dlinu masiva');read(n); writeln('Vedite granitu s leva');read(ls); writeln('Vedite granitu s prava');read(ld); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; min:=a[1];max:=a[1]; repeat f:=1; for i:=ls to ld-1 do if a[i]
Не нашли ответ?
Похожие вопросы