Помогите!

Нужно написать программу в Паскале.

Нужно найти мах и мин в массиве и поменять их местами!

Question

Информатика

Дуняха

8 февраля, 14:27

Помогите!

Нужно написать программу в Паскале.

Нужно найти мах и мин в массиве и поменять их местами!

+2

Ответы (1)

Знаете ответ на вопрос?

Корнилыч · Answer 1

Var a:array[0 ... 100] of integer;

i:integer;

max, min:integer;

begin

for i:=0 to 100 do begin

if a[i]
if a[i]>a[max] then max:=i;

end

i:=a[max];

a[max]:=a[min];

a[min]:=i;

end.

Помогите!Нужно написать программу в Паскале.Нужно найти мах и мин в массиве и поменять их местами!

Помогите!

Нужно написать программу в Паскале.

Нужно найти мах и мин в массиве и поменять их местами!