Поменять местами минимальный и максимальный элементы масива размера 10.

@Gerard · Регистрация: 16.09.2010

Author24 — интернет-сервис помощи студентам

Поменять местами минимальный и максимальный элементы масива размера 10.

помогите тупому студенту оч надо)

с меня спасибка

@Dekio · 28.11.2010, 14:18

как-то так

Pascal

max:=0; min:=mas[1]; t:=0; k:=0; l:=0;
for i:=1 to n do
if mas[i] > max then
begin
max:=mas[i];
l:=i;
end;
for i:=2 to n do
if mas[i] < min then
begin
min:=mas[i];
k:=i;
end;
t:=mas[k];
mas[k]:=mas[l];
mas[l]:=t;

@Gerard 5 / 3 / 0 Регистрация: 16.09.2010 Сообщений: 31
		1
	Поменять местами минимальный и максимальный элементы масива размера 10. 28.11.2010, 14:05. Показов 1212. Ответов 1 Метки нет (Все метки) Поменять местами минимальный и максимальный элементы масива размера 10. помогите тупому студенту оч надо) с меня спасибка 0

	28.11.2010, 14:18

Поменять местами минимальный и максимальный элементы масива размера 10.

Решение