ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1228. Массив

What's wrong???
Послано Yarik 4 янв 2003 04:54
var
n, s, p, i: longint;
d, k: array[1..21]of longint;
begin
readln(n, s);
for i:=1 to n do
readln(d[i]);
k[n]:=d[n-1];
p:=k[n];
for i:=n-1 downto 2 do
begin
  k[i]:=d[i-1] div p;
  p:=p*k[i];
end;
k[1]:=s div p;
for i:=1 to n-1 do
write(k[i]-1, ' ');
writeln(k[n]-1);
end.