Дано целое число А. Если значение А < 0, то необходимо удвоить его. Разработать блок-схему алгоритма, программы на алгоритмическом языке и на Паскале для решения этой задачи.

Факультет географии и природопользования КазНУ им. аль-Фараби был открыт в 1948 г. Тогда он имел название геолого-географический и был представлен двумя отделениями – геологическим и географическим. В связи с закрытием геологического отделения в 1960 году факультет был переименован в географический. Сегодня факультет отвечает самым высоким требованиям и международным стандартам. За время своего существования факультет подготовил более 5 тыс. специалистов географического профиля: географов, метеорологов, гидрологов, экологов, картографов, менеджеров туризма и др.

У истоков факультета стояли выдающиеся ученые-географы, внесшие большой вклад в развитие географической науки в Казахстане. Среди них назовем проф. В.А.Соколова, проф. М.Ж.Жандаева, проф. Г.Г.Муравлева, доц. З.П.Коженкову, проф. В.И.Коровина, проф. А.В.Чигаркина и др. Большой вклад в становление географического факультета внес на посту ректора КазНУ академик У.А. Джолдасбеков.

program max_elementarray ;

var i, max : integer ;

    a : array [1..10] of integer;

begin

    for i : = 1 to 10 do

          begin

              readln(a[i]);

          end;

    max : = a[1];

    for i : = 2 to 10 do

          if a[i]> max then max : = a[i];

    writeln('max element of array = ',max) ;

    readln ;

end.