Показать сообщение отдельно
Старый 27.06.2012, 12:37   #8 (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.
Оригинальный стиль программирования старался сохранить, хотя можно было бы обойтись меньшим количеством переменных.
как же можно обойтись меньшим колличеством переменных? я и так беру то, что необходимо по условию
Натуличка вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070