Меню сайта

Задача №67

Поменятьместами макс и последний элемент.


uses crt-

vari,max,num,size:integer-

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

begin-

clrscr-

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

readln(size)-

FOR i := 1 TO sizedo

begin

clrscr-

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

readln(a[i])

end-

max := a[1]-

clrscr-

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

FOR i := 1 TO sizedo

begin

-writeln(a[i])-

-IF a[i] &gt- max THEN

-begin

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

-end-

-end-

a[num] := a[size]-

a[size] := max-

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

FOR i := 1 TO sizedo

begin

writeln (a[i])-

end-

end.

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

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