В массиве все элементы, стоящие после минимального, заменить ** 0. Пример: из массива...

Question

В массиве все элементы, стоящие после минимального, заменить на 0. Пример: из массива A[5]: 3 2 1 5 6 должен получиться массив 3 2 1 0 0 решить в Pascal

Answer 1

Const n=5;

var   
a:array[1..n] of integer;   
i,k,min:integer;

Begin
for i:=1 to n do begin   
read(a[i]);
end;
min:=a[1];
for i:=1 to n do    begin         
    if min>a[i] then     begin               
       min:=a[i];                 
       k:=i;           
    end;   
end;
for i:=k+1 to n do    a[i]:=0;
writeln('Упорядоченный массив:');
for i:=1 to n do   
write(a[i]+' ');
end.

Comments

Вроде все верно.....но почему то не работает....но все равно спасибо)

---

А что выдает?

---

Где ошибка возникает

---

У тебя какой Паскаль?

---

abc......все норм заработала......огромное спасибо)