Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.09.2019, 23:35   #1
SirCat
Новичок
Джуниор
 
Регистрация: 17.09.2019
Сообщений: 1
По умолчанию Помогите отредачить прогу

Задание:
Подсчитать, сколько среди заданных элементов X1, X2, …, Xn отрицательных, и изменить
значение каждого положительного элемента (кроме последнего) путем его деления на значение
последующего члена (если это не ноль).
Условия:
1) Ввод исходных данных выполнить с клавиатуры, не забывая о приглашениях к
вводу.
2) Вывод исходных данных и результатов выполнить на экран вывода консольного
приложения, не забывая о пояснениях.
3) При наличии альтернативных решений, особенно отрицательных,
предусмотреть вывод соответствующих сообщений. Например, «Невозможно
найти среднее значение среди положительных элементов, т.к. таких элементов в
массиве нет».

Программа написана на pascalABC.Net

Код:
const
  N = 10; 
var
  a: array[1..N] of real;
  i, pol, otr: byte;
begin
  pol := 0;
  otr := 0;
  for i := -1 to N do 
  begin
    a[i] := random(10) - 10;
    write(a[i]:8:2);
    if a[i] < 0 then
      otr := otr + 1
        else
   if a[i] > 0 then
      pol := pol + 1;
  end;
  writeln;
  writeln('Положительных: ', pol);
  writeln('Отрицательных: ', otr);
  for i := 1 to n - 1 do
    if (a[i] > 0) and (a[i + 1] <> 0) then 
      a[i] /= a[i + 1];
  for i := 1 to n  do  
    write(a[i]:8:2);
end.
______________________
Используйте тег [CODE] (кнопка [CODE] в форме сообщения) при вставке кода на форум. Подробнее в FAQ

Последний раз редактировалось Alex11223; 18.09.2019 в 00:35.
SirCat вне форума Ответить с цитированием
Старый 18.09.2019, 00:35   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Проблема-то в чем именно?
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 18.09.2019, 08:27   #3
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Давайте посмотрим:

Цитата:
Сообщение от SirCat Посмотреть сообщение
Подсчитать, сколько среди заданных элементов X1, X2, …, Xn отрицательных
Зачем выводить кол-во положительных?

Цитата:
Сообщение от SirCat Посмотреть сообщение
значение каждого положительного элемента (кроме последнего) путем его деления на значение
последующего члена (если это не ноль).
На последний не проверяется.

Цитата:
Сообщение от SirCat Посмотреть сообщение
1) Ввод исходных данных выполнить с клавиатуры, не забывая о приглашениях к
вводу.
Нету

Цитата:
Сообщение от SirCat Посмотреть сообщение
2) Вывод исходных данных и результатов выполнить на экран вывода консольного
приложения, не забывая о пояснениях.
Почти есть

Цитата:
Сообщение от SirCat Посмотреть сообщение
3) При наличии альтернативных решений, особенно отрицательных,
предусмотреть вывод соответствующих сообщений. Например, «Невозможно
найти среднее значение среди положительных элементов, т.к. таких элементов в
массиве нет».
Нету

Код:
for i := -1 to N do
А почему не -10?

А так проблем нет...
p51x вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите дописать прогу wall33 C++ Builder 21 18.12.2015 11:58
Помогите исправить прогу barbossa Общие вопросы C/C++ 3 10.06.2009 00:41
Помогите разбить прогу! TheKnyazz Паскаль, Turbo Pascal, PascalABC.NET 6 25.11.2008 01:35