27.06.2012, 12:41
|
#10 (permalink)
|
Member
Регистрация: 06.02.2012
Сообщений: 46
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от AlexZir
Вот исправленный листинг программы
Код:
var a: array [1..30] of integer;
i,n,min,imin: integer;
begin
writeln ('ввод кол-ва элементов массива');
readln (n);
writeln ('ввод элементы массива');
for i:=1 to n do
readln (a[i]);
writeln;
min:=a[1];
imin:=1;
for i:=2 to n do
if a[i]<=min then begin min:=a[i]; imin:=i; end;
a [imin]:=a[1];
a[1]:=min;
for i:=1 to n do
writeln ('a[i]=',a[i]);
readln
end.
Оригинальный стиль программирования старался сохранить, хотя можно было бы обойтись меньшим количеством переменных.
|
спасибо конечно)
|
|
|