Задание:
В одномерном целочисленном массиве определить среднее арифмитическое максимального и минимальногочисел
Решение:
program massiv; var i,n,max,sr,min: longint; a: array[1… 1000]of longint; beginread (n); for i: =1 to n doread (a[i]); max: =-999999; min: =999999; for i: =1 to n dobeginif a[i]>max then max: =a[i]; if a[i] Знаете другой ответ?