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

Ответы 6

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

      ebony
    • 5 лет назад
    • 0
  • А что выдает?
  • Где ошибка возникает
    • Автор:

      grizzly54
    • 5 лет назад
    • 0
  • У тебя какой Паскаль?
    • Автор:

      casey72
    • 5 лет назад
    • 0
  • 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.
    • Автор:

      bruce51
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years