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

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

А что выдает?

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

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

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

const n=5;var   a:array[1..n] of integer;   i,k,min:integer;Beginfor 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.