По-перше, не можна заворожено стояти і дивитися на величезну хвилю, як укопаний. Можливо, вам здасться ця рекомендація дивною: кому може прийти в голову стояти і дивитися? Але, як показує практика, багато хто саме так і робить. Чи то від жаху, чи то з цікавості.
По-друге, якщо цунамі вже дуже близько, просто бігти не до тому що хвиля рухається зі швидкістю 800 км на годину (швидкість літака), але чим ближче до берега, тим вона стає повільніше: швидкість знижується до 80 км на годину.
По-третє, якщо цунамі ще далеко, але про нього вже відомо, швидше за все, у вас є не більше 15-20 хвилин для того, щоб втекти. Тому замість того, щоб збирати свої речі, використовуйте час для втечі. Беріть тільки найнеобхідніше. Рятуйте не речі, а життя!
По-четверте, не варто бігти близько русел річок: саме русла річок при цунамі будуть розливатися в першу чергу.
Объяснение:
1.Ученый кот поет песни и рассказывает сказки.
2.Русалки, лешие и невиданные звери Лукоморья.
3.Избушка на курьих ножках, наличие видений в лукоморье.
4.Утренний выход из воды морского дядьки и его витязей.
5.Противостояние королевича и царя.
6.Над морями и лесами несется колдун с богатырем на бороде.
7.Заключенную в темницу царевну оберегает волк.
8.Баба Яга в ступе и Кащей возле золотых запасов.
9.Сказочное Лукоморье проникнуто русским духом.
10.Ученый кот множество сказок поведал побывавшему в Лукоморье автору.
mas:array [1..100] of longint;
m,n,i,j:longint;
begin
write('Количество элементов ');readln(n);
writeln('Заполняем массив');
for i:=1 to n do{прочитали все числа и занесли их в массив}
readln(mas[i]);
writeln;
write('m=');readln(m);
i:=1;
j:=2;
while(i<=n) do{будем искать нужные упорядоченные пары(i<j,i не равно j)}
begin
j:=i+1;
while(j<=n) do
begin
if((mas[i]+mas[j])=m) then{нашли и вывели на экран}
writeln(mas[i],' ',mas[j]);
j:=j+1;
end;
i:=i+1;
end;
end.