Втаблице dat хранится положительные или отрицательные целые числа. определите, что будет напечатано в результате работы следующей программыю. текст программы на пяти языках программирования. паскаль var k, m: integer; dat: array[1..10] of integer; begin dat[1]: = -5; dat[2]: = 4; dat[3]: =
-3; dat[4]: = 2; dat[5]: = 7; dat[6]: = -1; dat[7]: = 9; dat[8]: = 8; dat[9]: = 7; dat[10]: = 4; m: = 0; for k: = 1 to 10 do begin if dat[k]*m < 20 then begin m: = dat[k] end; wrieln(m); end.

1.Запрещено самостоятельно разбирать компьютер и все его комплектующие. При возникновении неисправностей необходимо обратитьсяВсе кабели, соединяющие системный блок с другими устройствами, следует вставлять и вынимать только при выключенном компьютере. Исключение составляют USB-устройства: они могут быть подключены к включенному компьютеру;Запрещено самостоятельно устанавливать, удалять, деактивировать и изменять программное обеспечение и сетевые настройки на компьютере.Запрещено подвергать компьютер и периферийные устройства физическим, термическим и химическим воздействиям. (Нельзя сидеть на компьютере, проливать на него чай, кофе, просыпать семечки, ставить у батареи и других нагревательных приборов);При отключении электроэнергии источник бесперебойного питания (ИБП) позволяет компьютеру оставаться в рабочем состоянии от 5 до 20 минут. При отключении электроэнергии в помещении пользователь должен в немедленном порядке провести правильное выключение компьютера.В случае обнаружения неисправности компьютерного оборудования или программного обеспечения, пользователь должен обратиться в службу тех поддержки 

1) Начало;
2) Инициализация необходимых переменных , массива[1..5,1..5] и переменной для хранения MAX элемента;
3) Подключение библиотеки randomize;
4) Запуск Первого цикла со счетчиком от 1 до 5;
4.1) запуск Второго (Вложенного) цикла со счетчиком от 1 до 5;
4.1.1) Заполнение первой строки массива рандомными значениями;
4.1.2) Заполнение первой строки String grid -a;
4.1.2) Сравниваем текущий элемент массива с MAX элементом;
4.1.2.1) Если текущий элемент массива больше текущего МАХ элемента (который по умолчанию равен 0) то
Перезаписывеам MAX элемент на элемент массива;

Ждем окончания циклов в результате работы которых String grid будет заполнен А в переменной MAX элемента будет содержаться максимальный элемент массива.
5) Выводим MAX элемент массива в Edit;

Как то так. Если не понятно что то  можно в лс или коменты.