Все написано правильно, пропуски только в операторе if. if (a < b) then (m1 := a) else (m1 := b); if (c < d) then (m2 := c) else (m2 := d); if (m1 > m2) them (m := m1) else (m := m2); writeln ('Максимальный из минимальных элементов: ', m:7:2); end. Для тестирования можно взять разные варианты: 1) a = 2, b = -2, c = 10, d = -3 (m1 = b = -2, m2 = d = -3, m = m1 = -2) 2) a = 6, b = 6, c = 3, d = 4 (m1 = b = 6, m2 = c = 3, m = m1 = 6) Почему m1 = b, а не = а? Потому что в программе строгое неравенство. Если a < b, то m1 = a, если же a >= b, то m1 = b. Хотя для нас это все равно, получаем в итоге одно и тоже число. 3) a = -7, b = -5, c = 8, d = 8 (m1 = a = -7, m2 = d = 8, m = m2 = 8) 4) a = 0, b = 0, c = 0, d = 0 (m1 = b = 0, m2 = d = 0, m = m2 = 0)
В языке Паскаль описатель типа integer требует выделить под каждую переменную или элемент массива количество памяти, необходимое для размещения чисел из диапазона , т.е. отвести не менее двух байт, что и выполнялось в ранних системах, таких как Turbo Pascal, созданных во времена дорогой оперативной памяти. В современных разработках может выделяться и большее количество байт, например, в PascalABC.Net под переменную типа integer отводится 4 байта.
Описатель array [1..20] of integer требует отвести память под 20 элементов типа integer, следовательно, если говорить о минимально необходимом количестве байт, то ответом будет в) 20, 40. А для PascalABC.Net ответ должен быть 20, 80.
if (a < b) then (m1 := a) else (m1 := b);
if (c < d) then (m2 := c) else (m2 := d);
if (m1 > m2) them (m := m1) else (m := m2);
writeln ('Максимальный из минимальных элементов: ', m:7:2);
end.
Для тестирования можно взять разные варианты:
1) a = 2, b = -2, c = 10, d = -3 (m1 = b = -2, m2 = d = -3, m = m1 = -2)
2) a = 6, b = 6, c = 3, d = 4 (m1 = b = 6, m2 = c = 3, m = m1 = 6)
Почему m1 = b, а не = а? Потому что в программе строгое неравенство.
Если a < b, то m1 = a, если же a >= b, то m1 = b.
Хотя для нас это все равно, получаем в итоге одно и тоже число.
3) a = -7, b = -5, c = 8, d = 8 (m1 = a = -7, m2 = d = 8, m = m2 = 8)
4) a = 0, b = 0, c = 0, d = 0 (m1 = b = 0, m2 = d = 0, m = m2 = 0)
Описатель array [1..20] of integer требует отвести память под 20 элементов типа integer, следовательно, если говорить о минимально необходимом количестве байт, то ответом будет в) 20, 40.
А для PascalABC.Net ответ должен быть 20, 80.