Задание:
Составьте программу для нахождения минимального элемента массива Х, состоящего из 6 элементов. Пожалуйста)
Решение:
Var a: array [1… 7] of byte; k,c,d: integer; beginfor k: =1 to 6 do beginread (c); a[k]: =c; end; a[7]: =2*a[1]; for k: =1 to 6 do if a[k] Знаете другой ответ?