Помогите!Нужно написать программу в Паскале.Нужно найти мах и мин в массиве и поменять их местами!
Помогите!
Нужно написать программу в Паскале.
Нужно найти мах и мин в массиве и поменять их местами!
Гость
Ответ(ы) на вопрос:
Гостьvar a:array[0..100] of integer;
i:integer;
max,min:integer;
begin
for i:=0 to 100 do begin
if a[i]a[max] then max:=i;
end
i:=a[max];
a[max]:=a[min];
a[min]:=i;
end.
Не нашли ответ?
Похожие вопросы