Факультет географии и природопользования КазНУ им. аль-Фараби был открыт в 1948 г. Тогда он имел название геолого-географический и был представлен двумя отделениями – геологическим и географическим. В связи с закрытием геологического отделения в 1960 году факультет был переименован в географический. Сегодня факультет отвечает самым высоким требованиям и международным стандартам. За время своего существования факультет подготовил более 5 тыс. специалистов географического профиля: географов, метеорологов, гидрологов, экологов, картографов, менеджеров туризма и др.
У истоков факультета стояли выдающиеся ученые-географы, внесшие большой вклад в развитие географической науки в Казахстане. Среди них назовем проф. В.А.Соколова, проф. М.Ж.Жандаева, проф. Г.Г.Муравлева, доц. З.П.Коженкову, проф. В.И.Коровина, проф. А.В.Чигаркина и др. Большой вклад в становление географического факультета внес на посту ректора КазНУ академик У.А. Джолдасбеков.
Факультет географии и природопользования КазНУ им. аль-Фараби был открыт в 1948 г. Тогда он имел название геолого-географический и был представлен двумя отделениями – геологическим и географическим. В связи с закрытием геологического отделения в 1960 году факультет был переименован в географический. Сегодня факультет отвечает самым высоким требованиям и международным стандартам. За время своего существования факультет подготовил более 5 тыс. специалистов географического профиля: географов, метеорологов, гидрологов, экологов, картографов, менеджеров туризма и др.
У истоков факультета стояли выдающиеся ученые-географы, внесшие большой вклад в развитие географической науки в Казахстане. Среди них назовем проф. В.А.Соколова, проф. М.Ж.Жандаева, проф. Г.Г.Муравлева, доц. З.П.Коженкову, проф. В.И.Коровина, проф. А.В.Чигаркина и др. Большой вклад в становление географического факультета внес на посту ректора КазНУ академик У.А. Джолдасбеков.
program z1;
var a:array [1..10] of integer;
i,max,min:integer;
begin
for i:=1 to 10 do
begin
write('Введите ',i:2,' элемент: ');
readln(a[i])
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]
end;
writeln ('Максимальное число: ',max);
writeln (' Минимальное число: ',min);
end.
Объяснение:
Ввод элементов массива с пояснениями
Присваиваем переменным для максимального и минимального числа значение 1-го элемента
Сравнение остальных элементов массива с переменными для максимального и минимального, при необходимости присваивание этим переменным новых значений
Вывод максимального и минимального числа