Массив. Найти наименьший элемент и поменять его местами с последним элементом

@Aerocage · Регистрация: 01.04.2012

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

дан массив x(N).найти наименьший элемент и поменять его местами с последним элементом.

и чтобы не рандомно а можно было самому вводить элементы,помогите пожалуйста )

@Севак · 01.04.2012, 14:48

Aerocage,

Pascal

uses crt;
var a: array[1..10] of integer;
    i,min,k,buf: integer;
begin
min:=a[1];
k:=1;
for i:=1 to 10 do begin
write('a[',i,'] = ');
read(a[i]);
if a[i]<min then begin
min:=a[i];
k:=i;
end;
end;
write('Исходный массив: ');
for i:=1 to 10 do
write(a[i],' ');
buf:=a[k];
a[k]:=a[10];
a[10]:=buf;
writeln;
write('Измененный массив: ');
for i:=1 to 10 do
write(a[i],' ');
end.

@Aerocage · 01.04.2012, 16:16 **[ТС]**

спасибо,все работает!

@Aerocage 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 5
		1
	Массив. Найти наименьший элемент и поменять его местами с последним элементом 01.04.2012, 14:37. Показов 1555. Ответов 2 Метки нет (Все метки) дан массив x(N).найти наименьший элемент и поменять его местами с последним элементом. и чтобы не рандомно а можно было самому вводить элементы,помогите пожалуйста ) 0

@Aerocage 0 / 0 / 0 Регистрация: 01.04.2012 Сообщений: 5
	01.04.2012, 16:16 [ТС]	3
	спасибо,все работает! 0

Массив. Найти наименьший элемент и поменять его местами с последним элементом

Решение