В одномерном массиве из 10 чисел положительные элементы уменьшить вдвое, а отрицательные заменить индексами

@Nike91 · Регистрация: 19.11.2014

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста решить.

@CodeR · 21.11.2014, 14:29

Pascal

Const n=10;
Var A:array[1..n] of real;
    i:integer;
Begin
    Randomize;
    writeln('Исходный массив');
    For i:=1 to n do
    Begin
      A[i]:=-5+random*10;
      write(A[i]:6:2);
    End;
    writeln;
    writeln('Полученный массив');
    For i:=1 to n do
    Begin
      if A[i]>0 then A[i]:=A[i]/2 
       else if A[i]<0 then A[i]:=i;
      write(A[i]:6:2);
    End;
    readln;
End.

@Nike91 · 21.11.2014, 15:26 **[ТС]**

А зачем вводить константу?

Добавлено через 1 минуту
И ещё вопрос с раундом обязательно делать?

Добавлено через 37 секунд
С рандом

@ZX Spectrum-128 · 21.11.2014, 17:50

Константа нужна для описания массива. Random не обязателен, можно переделать, чтобы пользователь сам вводил элементы массива.

@Nike91 · 21.11.2014, 17:52 **[ТС]**

А как правильно переделать, а то пол дня уже переделывал и выдаёт ошибки....

@ZX Spectrum-128 · 21.11.2014, 17:59

Pascal

Const n=10;
Var A:array[1..n] of real;
    i:integer;
Begin
    Randomize;
    writeln('Введите исходный массив: ');
    For i:=1 to n do
      readln(A[i]);
    writeln;
    writeln('Полученный массив');
    For i:=1 to n do
    Begin
      if A[i]>0 then A[i]:=A[i]/2 
       else if A[i]<0 then A[i]:=i;
      write(A[i]:6:2);
    End;
    readln;
End.

@Nike91 12 / 1 / 0 Регистрация: 19.11.2014 Сообщений: 42
		1
	В одномерном массиве из 10 чисел положительные элементы уменьшить вдвое, а отрицательные заменить индексами 21.11.2014, 14:00. Показов 10781. Ответов 5 Метки нет (Все метки) Помогите, пожалуйста решить. 0

@Nike91 12 / 1 / 0 Регистрация: 19.11.2014 Сообщений: 42
	21.11.2014, 15:26 [ТС]	3
	А зачем вводить константу? Добавлено через 1 минуту И ещё вопрос с раундом обязательно делать? Добавлено через 37 секунд С рандом 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	21.11.2014, 17:50	4
	Константа нужна для описания массива. Random не обязателен, можно переделать, чтобы пользователь сам вводил элементы массива. 1

@Nike91 12 / 1 / 0 Регистрация: 19.11.2014 Сообщений: 42
	21.11.2014, 17:52 [ТС]	5
	А как правильно переделать, а то пол дня уже переделывал и выдаёт ошибки.... 0

	21.11.2014, 17:59

В одномерном массиве из 10 чисел положительные элементы уменьшить вдвое, а отрицательные заменить индексами

Решение