Птахи та звірі живі істоти. У них є свої потреби та побажання.Вони спілкуються своєю мовою,не зрозумілою для нас.Але якби ми могли їх розуміти,то напевне бдізналися багато цікавого та корисного. Для початку,вони б розповіли б нам правила поведінки в лісі. Адже ми,інколи,відпочиваючи там,забруднюємо навколишнє середовище . А напевне ж, всі хочуть жити в чистій домівці ? Також птахи,особливо перелітні ,багато подорожують, тому могли б поділитися з нами цікавими розповідями про далекі країни. Ми б знали їх проблеми та при потребі,змогли б до Можливо,якби хижі тварини могли б розмовляти,люди перестали б їх боятись. І зникло б зло та панувала тиша.
Cортировка была реализована методом пузырька var i, n, j, b, k: integer; M, A: array [1..20] of integer; begin n := 1; for i := 1 to 20 do begin read (M[i]); if M[i] > 5 then begin A[n] := M[i]; inc(n); end; end; for j := 1 to n - 1 do for i := 1 to n - j do if A[i] > A[i + 1] then begin b := A[i]; A[i] := A[i + 1]; A[i + 1] := b; end; write('Начальный массив: '); for i := 1 to 20 do write (M[i], ' '); writeln; write('Новый массив: '); for i := 1 to n do write (A[i], ' '); end.
Для початку,вони б розповіли б нам правила поведінки в лісі. Адже ми,інколи,відпочиваючи там,забруднюємо навколишнє середовище . А напевне ж, всі хочуть жити в чистій домівці ? Також птахи,особливо перелітні ,багато подорожують, тому могли б поділитися з нами цікавими розповідями про далекі країни. Ми б знали їх проблеми та при потребі,змогли б до Можливо,якби хижі тварини могли б розмовляти,люди перестали б їх боятись. І зникло б зло та панувала тиша.