VPF::Сумма элементов массива - Форум программистов

DolceGabana

Дата 20.12.2006, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 18.12.2006

Репутация: нет
Всего: нет

В одномерном массиве, состоящем из N целых элементов, вычислить:
сумму элементов массива, расположенных после последнего элемента, равного нулю.
Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых не превышает 1, а потом — все остальные.

Rodman

Дата 20.12.2006, 14:19 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

DolceGabana, тебе сюда

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

volvo877

Дата 20.12.2006, 14:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

А почему именно туда, Rodman, ты можешь объяснить? Чего вы все так рьяно за переносы тем в Центр Помощи??? Может, вообще все остальные разделы - закрыть? И тогда точно нарушений не будет - все будет в одном разделе? Или просто хочется сообщений накрутить? smile

Zero

Дата 20.12.2006, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(volvo877 @ 20.12.2006, 14:23

)

А почему именно туда, Rodman, ты можешь объяснить?

volvo877, я могу обяснить... Потому что в формулеровке вопроса не показано конкретных проблем, а дано просто задание, что не соответствует правилам форума.
А все темы такого рода, перемещаются туда. smile

volvo877

Дата 20.12.2006, 14:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

DolceGabana, вот первая часть:

Код

const
  N = 10;
var
  a: array [1 .. N] of integer;
  s, i, last_zero: integer;

begin
  for i := 1 to N do begin
    write('a[', i, '] = '); readln(a[i]);
  end;

  last_zero := N;
  while a[last_zero] > 0 do dec(last_zero);

  s := 0;
  for i := last_zero + 1 to N do
    s := s + a[i];
  writeln('S = ', s);

end.

Со второй возникают некоторые неувязки:

Цитата(DolceGabana @ 20.12.2006, 13:16

)

В одномерном массиве, состоящем из N целых элементов, вычислить:
...
Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых не превышает 1, а потом — все остальные.

Откуда следует, что у элементов есть также и НЕцелая часть? Поясни...

DolceGabana

Дата 20.12.2006, 15:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 27
Регистрация: 18.12.2006

Репутация: нет
Всего: нет

volvo877, спасибо. Я вот сама думала про вторую часть, задание явно противоречит условию! smile

PrinceMike

Дата 20.12.2006, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1

у тебя преподаватель все задачи с противоречиями дает? smile

в прошлой задаче со второй часть тоже самое почти было)
найти то, чего точно не божет быть при таких условиях smile

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »