Новый год для меня - самый любимый и долгожданный праздник. В преддверие Нового года мною овладевает странное чувство, что должно случиться что-то волшебное и радостное. Повсюду атмосфера праздника, и люди готовятся к его приходу - покупают пышные ели домой, различные фрукты и сладости на стол, и конечно, подарки для своих близких. Для детей, Новый год - это настоящая сказка.
Накануне Нового года мы начинаем готовиться к его празднованию. Украшаем нашу елку и комнаты яркими гирляндами и игрушками, мишурой и разноцветными шарами. Квартира преображается, становится праздничной и еще более уютной.
Каждый год к праздничному столу мама готовит много всего вкусного и необычного. К нам в гости приходят близкие друзья и родственники. Все веселятся, поют и танцуют, участвуют в забавных конкурсах. Ближе к полуночи, выходим на улицу, запускаем салюты и любуемся красивым фейерверком. Повсюду слышны поздравления, восторг и радость от прихода Нового Года. А на утро, я с нетерпением бегу к елке, чтобы узнать какой же подарок мне подарили.
Уверен, что в этом году празднование Нового Года будет еще увлекательнее, а наступающий год принесет лишь счастье и радость!
a,max,max2:real;
i:integer;
begin
writeln('Введите скорость');
for i:=1 to 7 do
begin
readln(a);
if a>max then
if max>max2 then
max2:=a
else
max:=a;
end;
writeln(max:4:2,' ',max2:4:2);
end.
или через массивВ массив заносим 2 элемента. В цикле вводим остальные элементы. В массиве находим минимальный и, если введенный следующий элемент (b) больше минимального массива, то записываем b в массив на место наименьшего.
В результате в массиве два максимальных эл-та
var
a:array[1..2]of integer;
n,i,min,j,m,b:integer;
begin
readln(n);
readln(a[1],a[2]);
for i:=3 to n do
begin
readln(b);min:=a[1];m:=1;
for j:=1 to 2 do
if a[j]<min then
begin
min:=a[j];
m:=j;
end;
if b>min then
a[m]:=b;
end;
for i:=1 to 2 do
writeln(a[i]);
end.