Дан одномерный массив. Заменить минимальный элемент нулём

Дан одномерный массив. Заменить минимальный элемент нулём
Гость
Ответ(ы) на вопрос:
Гость
var a:array[1..10000] of integer; i,n,min:integer; begin writeln('Кол-во элементов массива'); readln(n); for i:=1 to n do read (a[i]); min:=1; for i:=2 to n do if a[min]>a[i] then min:=i; a[min]:=0; for i:=1 to n do write(a[i],' '); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы