Меню сайта

Задача №66

Поменятьместами макс и мин элементы.

uses crt-

vari,size,max,min,num,num1:integer-

a:array[1..10000]of integer-

begin

clrscr-

writeln(‘Bведите размер массива’)-

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

writeln(‘Введите элементы массива’)-

readln(a[i])-

end-

max := a[1]-

min := a[1]-

clrscr-

writeln(‘Введенный массив’)-

FOR i := 1 TO sizedo

begin

writeln(a[i])-

IF a[i] &gt- maxTHEN

begin

num := i- max :=a[i]-

end-

end-

FOR i := 1 TO sizedo

begin

IF a[i] &lt- minTHEN

begin

num1 := i- min :=a[i]-

end-

end-

a[num1 + 1] := max-

a[num] := min-

writeln(‘Массив, где max и min поменяли местами’)-

FOR i := 1 TO sizedo

begin

writeln(a[i])-

end-

Категория: Массивы | Дата: 06.12.12

Меню раздела
Блок