Мен өтө сонун Кыргызстан өлкөсүндө жашайм.Кыргызстандын бул гулдөп, өнүккөн Бишкек шаары.Кыргызстанын жаратылышы ар түрдүү жана өтө кооз.Биздин сөз жеткис жаратылышыбызды көруу учун, чет өлкөлөрдөн туристтер да келишет.
Кыргызстан төрт тарабы тоолор менен курчалган,таза абасы,таза суусу ,жашыл бак дарактары бар ,тарыхы чоң өлкө.Конок келгенде кучак жайып тосуп алган меймандос эли жана
дуйнодогу эн терен колдордун катарындагы көл биздин берметибиз -Ысык -Көл.
Биз Кыргызстандын келечегибиз , ошондуктан өзүбүздүн тилибизди , дилибизди ,Манас атабызды унутпай өзүбүздөн кийинки келечек муунга өткөрүп беришибиз керек.
Итак, я ,к сожалению, не знаток, но отличия между хотя бы религией и мифологией сказать смогу:
МИФОЛОГИЯ это в первую очередь направление не основывающееся на каких либо доказательствах.
ТО ЕСТЬ
люди придумывали обьяснения физическим явлениям составляя мифы
(например по представлениям египтян, их Бог Солнца Ра плавал по небесной реке в своей золотой ладье, а ночью под землёй побеждал коварного бога тьмы и снова возвращался на небо)
а РЕЛИГИЯ
основана на преданиях тобиш доказательствах
физ явлений созданных Богами или Богом
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; s := 0;
Алгоритм
Ввод массива A[n,m]
Max := A[1,1]; k := 1; p := 1; c := 0;
Цикл по i от 1 до n (по строкам)
Цикл по j от 1 до m (по столбцам)
Если (A(i, j) = Max) and ((i<>k) or (j<>p)) То c := c+1;
Если (A(i, j) > Max) То
k := i; p := j; c := 1;
Max: = A(i, j);
Конец Если
Конец цикла по столбцам
Конец цикла по строкам
Вывод "Элемент ", Max, " встречается ", c, " раз"
Конец.
Программа
var A: array of array of integer
var i,j,m,n,k,p,s,Max: integer
BEGIN
uses crt; clrscr;
write ('Vvedite kol-vo strok: '); readln (n);
write ('Vvedite kol-vo stolbtsov: '); readln (m);
setlength(A,n,m);
for i=1 to n do
begin
for j=1 to m do
begin
write ('Vvedite element vassiva: '); readln (A[i,j]);
end;
end;
Max := A[1,1]; k := 1; p := 1; c := 0;
for i=1 to n do
begin
for j=1 to m do
begin
if (A(i, j) = Max) and ((i<>k) or (j<>p)) then c := c+1;
if (A(i, j) > Max) then
begin
k := i; p := j; c := 1;
Max: = A(i, j);
end;
end;
end;
write ('Element ', Max, ' vstrechaetsya ', c, ' raz');
END.