Выведи на экран большее из двух данных чисел.
Запиши программу на языке Паскаль, выведи ответ на экран, если 1,03898 и 2,5824.​

//Видимо, это одна задача, так как "изменения" во второй не указаны
//Pascal ABC.NET v3.1 сборка 1172

Const
 n=20;

Var
 ar:array[1..n] of integer;
 i:integer;
begin
 randomize;
 writeln('First array:');
  for i:=1 to n do
   begin
    ar[i]:=random(10)-3;
    write(ar[i]:4);
    if ar[i]>0 then ar[i]:=ar[i]*2 else ar[i]:=0;
   end;
 writeln;
 writeln('Final array:');
  for i:=1 to n do
   write(ar[i]:4);
end.

Пример работы программы:
First array:   2  -3   5   6  -3  -3   1  -2  -3   1   3  -3   4  -3   1  -1   6   6   2   3
Final array:   4   0  10  12   0   0   2   0   0   2   6   0   8   0   2   0  12  12   4   6

1) Действия с информацией - это действия , связанные с хранением, обработкой и передачей информации
2)  ЗРИТЕЛЬНАЯ - глаза                                               
ЗВУКОВАЯ - уши
ВКУСОВАЯ - рот, язык
ОБОНЯТЕЛЬНАЯ - нос
ОСЯЗАТЕЛЬНАЯ - кожа
3)  а) Линейка нужна для измерения расстояний.
    б) Транспортир нужен для измерения углов.
    в) Термометр нужен для измерения температуры.
    г) Барометр нужен для измерения давления.
    д) Компас нужен для определения направления сторон света (севера, юга, запада и востока)
    е) Телескоп нужен для изучения звездного нета
    ж) Микроскоп нужен для изучения клеток, микроорганизмов
    з) Шумомер нужен для измерения силы звуков (громкости)
    и) Гигрометр нужен для измерения влажности воздуха