• (Pascal или Delphi)
    В заданном массиве A(N) положительные элементы уменьшить вдвое, а отрицательные заменить на значения их индексов.

Ответы 6

  • выводит ответ но рядом после точки слишком много цифр и символов как убрать это?
  • можно в рядом комментариями более подробно расписать что вы делали
  • Эта строчка-получившийся массив, запись элементов через запятую. Если хотите убрать, удалите:write (a[an],',');
    • Автор:

      mariana72
    • 6 лет назад
    • 0
  • а ну всё понял спасибо
  • setlength(a,n);-задание размерности массиваa[an]:=random(10); - случайное число до 10if a[an]>0 then a[an]:=a[an]/2 else a[an]:=an;-условие, заданное в задаче.
    • Автор:

      bennett
    • 6 лет назад
    • 0
  • var a:array of real;n,an:integer;beginrandomize;writeln('Введите размерность массива');readln(n);n:=n+1;setlength(a,n);for an:=1 to n-1 dobegin;a[an]:=random(10);if a[an]>0 then a[an]:=a[an]/2 else a[an]:=an;write (a[an],',');end;end.
    • Автор:

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

Войти через Google

или

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

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

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