Объяснение:
Bir kishining tinchligi jamiyat tinchligini bir qismidir. Zero, kishi o‘zi yashab turgan jamiyatning uzviy a’zosidir. Demakki, har bir inson butun jamiyat a’zolari uchun muhim bo‘lgan tinchlikni saqlash yo‘lida hamkorlik qilishi eng zaruriy burch va amaldir.
Tinchlikni mustahkamlash yo‘lida har bir kishi o‘z burchini sidqidildan, ixlos va e’tiqod ila bajarmog‘i lozim. Ayniqsa, Vatan himoyasi jabhalarida xizmat qilayotgan har bir harbiy xizmatchi o‘ziga topshirilgan vazifani Yaratgan va insonlar huzuridagi ulug‘ mas’uliyat deb bilmog‘i va harbiy qasamyodni, va’dalarini bajarishi zarurdir.
Shuningdek, Vatan himoyasida faqat harbiy kishilar emas, balki shu zaminda yashayotgan barcha fuqarolar – o‘qituvchi yoki shifokor bo‘ladimi, tadbirkor yoxud bog‘cha tarbiyachisi bo‘ladimi, qaerda bo‘lmasin o‘z Vatanini himoya qilishi kerak. Himoya qilish deganda faqat qurol bilan emas, kerak bo‘lsa so‘z bilan, g‘animlarga raddiya berish bilan vatanga tosh otuvchilar va ig‘vogarlarga qarshi kurash yo‘llari bilan inson o‘z yurtini, millatini, xalqini himoya qilishi zarur!
-33° 10'
Объяснение:
Склонение звёзд, которые кульминируют в зените, равно широте места.
Значит, в екб кульминируют в зените звёзды со склонением 56 градусов 50 минут.
Высота в верхней кульминации точек, находящихся на небесном экваторе, равна 90 градусов минус широта. Т. е. для Москвы это 33 градуса 10 минут.
Чтобы в верхней кульминации объект был в точке юга (т. е. его высота должна быть равна нулю), нужно, чтобы он находился ниже экватора настолько, насколько экватор поднимается над горизонтом в кульминации.
Так что в екб кульминируют в точке юга объекты со склонением минус 33 градуса 10 минут.
CONST N=6; M=8;
VAR
A:ARRAY[0..N,0..M] OF INTEGER;
I,J,K,FL:BYTE; MAX:INTEGER;
BEGIN
ClrScr; Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
WriteLn(' Значения элементов двумерного массива');
FOR I:=1 TO N DO Begin
FOR J:=1 TO M DO Begin
A[I,J]:=Random(20); Write(A[I,J]:3);
End; WriteLn;
End; WriteLn;
{ Нахождение наибольшего значения }
MAX:=A[1,1];
FOR I:=1 TO N DO
FOR J:=1 TO M DO
IF A[I,J]>MAX THEN MAX:=A[I,J];
WriteLn(' Максимальное значение = ',MAX);
{ Нахождение строки, в которой два элемента имеют наибольшее значение }
FL:=0;
FOR I:=1 TO N DO Begin
K:=0;
FOR J:=1 TO M DO
IF A[I,J]=MAX THEN Inc(K);
IF K=2 THEN Begin WriteLn('В ',I,' строке два элемента имеют наибольшее значение');
FL:=1;
End;
End;
IF FL=0 THEN WriteLn(' Нет строк, в которых два элемента имеют наибольшее значение');
END.