Дбати про честь власного імені дуже важливо! Адже ми всі - особистості. І кожен з нас хоче бути найкращим, хтось хоче цього більше, хтось - менше. Але найголовніше зберегти своє добре ім'я! Щоб навіть коли вас не стане, ( про це повинні всі задуматись, тому що всі ми не вічні і колись наступить час відійти в інший світ), люди згадували вас як хорошу, добру, працьовиту людину, яка не бажала зла для інших. І, напевне, основне - будьте прикладом для свої дітей, але не просто прикладом, а хорошим прикладом. Тим, хто завжди допомагав у важку хвилину, захищав від усіх і , по потребі сварив, вказував на наші недоліки, щоб в майбутньому діти були не гірші своїх батьків.
Объяснение:
ОСНОВНІ ПРАВИЛА БЕЗПЕЧНОГО ПОВЕДІНКИ НА ДОРОЗІ
Ніколи не вибігайте на дорогу перед автомобілем, що наближається. Це небезпечно, тому що водій не може зупинити машину відразу.
Дорогу необхідно переходити в спеціально відведених місцях, по пішохідному переходу.
На проїжджу частину виходьте тільки після того, як переконаєтеся у відсутності транспорту і зліва, і справа.
Вийшовши з автобуса не вибігайте на дорогу. Зачекайте поки автобус від’їде, і тільки потім, переконавшись у відсутності машин, переходьте дорогу.
Небезпечно виїжджати на проїжджу частину на скейтах, роликах та велосипедах.
Не вибігайте на дорогу поза зоною пішохідного переходу, в цьому місці водій не очікує пішоходів і не зможе миттєво зупинити автомобіль.
Небезпечно грати в м’яч і інші ігри поряд з проїжджою частиною, краще це робити у дворі або на дитячому майданчику.
Вмійте користуватися світлофором.
n = 20;
var
i, imax, j, x: integer;
a: array[1..n]of integer;
begin
for i := 1 to n do
a[i] := random(100);
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
x := a[i];
a[i] := a[imax];
a[imax] := x;
end;
for i := 1 to n do
write(a[i],' ');
writeln();
writeln(imax);
end.