Стёпа и Андрей лучшие друзья, поэтому им хочется праздновать день рождения вместе. Если Стёпа и Андрей родились в один день одного месяца, то напечатайте на экран сообщение "Вечеринка удалась!".
Если друзья родились в один месяц (но в разные дни), то напечатайте на экран сообщение "Отпразднуем вместе в конце месяца!".
Если друзья родились в рядом стоящие месяцы (например, март и апрель), то напечатайте на экран сообщение "Вечеринка откладывается".
Если дни рождения не в один год, не в соседние месяцы и не в соседние дни, то напечатайте на экран сообщение "Вечеринки не будет".
С клавиатуры вводится две тройки целых чисел: день, месяц и год.
Формат входных данных
Две тройки целых чисел, каждое с новой строчки: 1 ≤ день ≤ 31, 1 ≤ месяц ≤ 12, 0 ≤ год ≤ 9999
Это даты рождения Стёпы и Андрея.
Формат выходных данных
фраза-ответ
Предлагаемый вариант программы лишен указанного выше недостатка.
const
nn=100; { максимальное количество элементов в массиве }
var
a:array[1..nn] of integer;
i,n,Amax,Aindex:integer;
begin
Randomize;
Write('n='); Read(n);
for i:=1 to n do begin
a[i]:=Random(101)-50;
Write(a[i],' ')
end;
Writeln;
Aindex:=1;
for i:=2 to n do
if a[i]>a[Aindex] then Aindex:=i;
Amax:=a[Aindex];
Writeln('Максимальный элемент номер ',Aindex,' равен ',Amax)
end.
Пример
n=15
24 14 44 4 41 -50 14 3 7 38 21 -39 31 -2 12
Максимальный элемент номер 3 равен 44
var
a,c1,c2,s1,s2:integer;
begin
readln(a);
if a=0 then
begin
writeln('Error');
exit;
end;
s2:=-30000; c2:=30000;
s1:=-30000; c1:=30000;
repeat
if (a>s1) or (a>s2) then
if s1>s2 then
s2:=a
else
s1:=a;
if (a<c1) or (a<c2) then
if c1>c2 then
c1:=a
else
c2:=a;
readln(a);
until a=0;
writeln('max: ',s1+s2);
writeln('min: ',c1+c2);
end.
Если моё решение вам, пометьте его лучшим !