Дистанционная подготовка: Касса
Касса
от Валерия Высоцкая - Пятница 17 Апрель 2015, 19:22
  Помогите пожалуйста. Я решила задачу но она идет не на все тесты.
Условие:
Оля решила открыть свой магазин.Он работает в течение n дней. Каждый день Оля записывает кол-во денег в кассе. При этом деньги из кассы не вынимаются.Оле стало интересно в какой из n дней выручка стала больше. Если таких дней несколько то напечатать первый.
Необходимо написать сначала день max выручки, а затем саму выручку.
Программа:
var n,i,k,d,j:longint;a:array [1..100] of longint;
begin
read(n);
d:=1;
for i:= 1 to n do
readln(a[i]);
k:=a[1];
for i:=2 to n do begin
if a[i]-a[i-1]>k then begin k:=a[i]-a[i-1];d:=i;end;
end;
write(d,' ',k);
end.
Re: Касса
от Victor Cherepanov - Пятница 17 Апрель 2015, 21:44
  Да это же из действующей вступительной работы в ЛКШ. Вот прием закончится, тогда и разбирать будем. А пока -- спасибо за место.