Помогите подправить

Накатал тут прогу в паскале 

Спойлер:

constN = 10;vara: array[1..N] of real;i, pol, otr: byte;beginpol := 0;otr := 0;for i := 1 to N do begina := random(10) - 10;

write(a:8:2);

if a < 0 then

otr := otr + 1

else

if a > 0 then

pol := pol + 1;

end;

writeln;

writeln('Положительных: ', pol);

writeln('Отрицательных: ', otr);

for i := 1 to n - 1 do

if (a > 0) and (a <> 0) then

a /= a;

for i := 1 to n do

write(a:8:2);

end.

 

 

Как сделать, чтобы:

1) диапазон был от -10 до 10

2) числа я писал сам, а не прога брала рандомные 

3) при наличии альтернативных решений, особенно отрицательных, прога предусмотрела вывод соответствующих сообщений

p.s. подправил тут ее, ибо не так скопировалась

Заливай на pastebin.com

lMississippil сказал(а):↑

Накатал тут прогу в паскале 

Спойлер:

constN = 10;vara: array[1..N] of real;i, pol, otr: byte;beginpol := 0;otr := 0;for i := 1 to N do begina := random(10) - 10;

write(a:8:2);

if a < 0 then

otr := otr + 1

else

if a > 0 then

pol := pol + 1;

end;

writeln;

writeln('Положительных: ', pol);

writeln('Отрицательных: ', otr);

for i := 1 to n - 1 do

if (a > 0) and (a <> 0) then

a /= a;

for i := 1 to n do

write(a:8:2);

end.

 

Как сделать, чтобы:

1) диапазон был от -10 до 10

2) числа я писал сам, а не прога брала рандомные 

3) при наличии альтернативных решений, особенно отрицательных, прога предусмотрела вывод соответствующих сообщений

Нажмите, чтобы раскрыть...

1. У тебя N = 10, а цикл ты запускаешь от 1. Попробуй вместо 1 указать -10

2. Считывай ввод А (где у тебя a = random...)

3 Переформулируй

EmbraceTheFire сказал(а):↑

1. У тебя N = 10, а цикл ты запускаешь от 1. Попробуй вместо 1 указать -10

2. Считывай ввод А (где у тебя a = random...)

3 Переформулируй

Нажмите, чтобы раскрыть...

Обнови, я там переделал 

lMississippil сказал(а):↑

Обнови, я там переделал 

Нажмите, чтобы раскрыть...

Зачем else указывать в первом if? 

Для чего этот кусок нужен?

Спойлер: "кусок"

for i := 1 to n - 1 do

if (a > 0) and (a <> 0) then

a /= a;

for i := 1 to n do

write(a:8:2);

end.

 

 

EmbraceTheFire сказал(а):↑

Зачем else указывать в первом if? 

Для чего этот кусок нужен?

Спойлер: "кусок"

for i := 1 to n - 1 do

if (a > 0) and (a <> 0) then

a /= a;

for i := 1 to n do

write(a:8:2);

end.

 

 

Нажмите, чтобы раскрыть...

и чем его заменить? 

зачем тебе паскаль?

откуда столько вопросов про паскаль в разделе проги?)

чел, дай исходное задание

твой код это просто шокконтент

VovkaKalibrovka сказал(а):↑

чел, дай исходное задание

твой код это просто шокконтент

Нажмите, чтобы раскрыть...

а на этом гавне может быть по-другому?

VovkaKalibrovka сказал(а):↑

чел, дай исходное задание

твой код это просто шокконтент

Нажмите, чтобы раскрыть...

Подсчитать, сколько среди заданных элементов X1, X2, …, Xn отрицательных, и изменить

значение каждого положительного элемента (кроме последнего) путем его деления на значение

последующего члена (если это не ноль).

 

1) Ввод исходных данных выполнить с клавиатуры, не забывая о приглашениях к

вводу.

2) Вывод исходных данных и результатов выполнить на экран вывода консольного

приложения, не забывая о пояснениях.

3) При наличии альтернативных решений, особенно отрицательных,

предусмотреть вывод соответствующих сообщений. Например, «Невозможно

найти среднее значение среди положительных элементов, т.к. таких элементов в

массиве нет».

4) Код решения задачи пока не писать, заменив временно простейшей заглушкой –

прямым присваиванием значения результатам.

lMississippil сказал(а):↑

 

1) Ввод исходных данных выполнить с клавиатуры, не забывая о приглашениях к

вводу.

2) Вывод исходных данных и результатов выполнить на экран вывода консольного

приложения, не забывая о пояснениях.

3) При наличии альтернативных решений, особенно отрицательных,

предусмотреть вывод соответствующих сообщений. Например, «Невозможно

найти среднее значение среди положительных элементов, т.к. таких элементов в

массиве нет».

4) Код решения задачи пока не писать, заменив временно простейшей заглушкой –

прямым присваиванием значения результатам.

Нажмите, чтобы раскрыть...

ну так скажем

1) у тебя ввод не с клавиатуры (в твоем коде)

2) ты не используешь массив вообще

 

VovkaKalibrovka сказал(а):↑

ну так скажем

1) у тебя ввод не с клавиатуры (в твоем коде)

2) ты не используешь массив вообще

 

Нажмите, чтобы раскрыть...

1) я и прошу, чтоб с клавы был 

2) ну и как его заюзать в данной ситуации? 

begin

pol := 0;

otr := 0;

for i := 1 to N do

begin

a := random(10) - 10;

.....

вот тут вместо строчки "a := random(10) - 10;" пишешь readln(a);

таким образом ты сам вводишь переменную

 

я не понимаю что значит диапазон от -10 до 10, если ты сам вводишь числа

и что значит альтернативные решения? у тебя задача посчитать отрицательные и изменить положительные

UPD: оказалось что a - это твой массив, переписал код

 

VovkaKalibrovka сказал(а):↑

begin

pol := 0;

otr := 0;

for i := 1 to N do

begin

a := random(10) - 10;

.....

вот тут вместо строчки "a := random(10) - 10;" пишешь readln(a);

таким образом ты сам вводишь переменную

 

я не понимаю что значит диапазон от -10 до 10, если ты сам вводишь числа

и что значит альтернативные решения? у тебя задача посчитать отрицательные и изменить положительные

UPD: оказалось что a - это твой массив, переписал код

 

Нажмите, чтобы раскрыть...

Спойлер: "ну вот он ошибку и выдает "

lMississippil сказал(а):↑

Накатал тут прогу в паскале 

Спойлер:

constN = 10;vara: array[1..N] of real;i, pol, otr: byte;beginpol := 0;otr := 0;for i := 1 to N do begina := random(10) - 10;

write(a:8:2);

if a < 0 then

otr := otr + 1

else

if a > 0 then

pol := pol + 1;

end;

writeln;

writeln('Положительных: ', pol);

writeln('Отрицательных: ', otr);

for i := 1 to n - 1 do

if (a > 0) and (a <> 0) then

a /= a;

for i := 1 to n do

write(a:8:2);

end.

 

 

Как сделать, чтобы:

1) диапазон был от -10 до 10

2) числа я писал сам, а не прога брала рандомные 

3) при наличии альтернативных решений, особенно отрицательных, прога предусмотрела вывод соответствующих сообщений

p.s. подправил тут ее, ибо не так скопировалась

Нажмите, чтобы раскрыть...

перепиши на си

и я подправлю 

k4rj2 сказал(а):↑

зачем тебе паскаль?

откуда столько вопросов про паскаль в разделе проги?)

Нажмите, чтобы раскрыть...

это форум д2ру, ты чего-то большего ожидал?

Hit Girl сказал(а):↑

это форум д2ру, ты чего-то большего ожидал?

Нажмите, чтобы раскрыть...

А причем тут д2ру к тому, на чем кодят программисты?

GribBomjevik сказал(а):↑

перепиши на си

и я подправлю 

Нажмите, чтобы раскрыть...

У меня такое впечатление, что тут старперы сидят, не знающие про модерн девелопинг и хотят быть как старые пердуны лет 40-50