cрочно ,нужно написать программы. 1.дан массив содержащий 15 элементов ,найти сумму максимального и минимального элементов. 2.найти среднее арифметическое элементов массива.
Var arr: array[1..15] of integer; min, max, i, sum: integer;
begin min := MaxInt; max := -(MaxInt); for i := 1 to 15 do begin readln(arr[i]); if arr[i] > max then max := arr[i]; if arr[i] < min then min := arr[i]; sum := sum + arr[i]; end; writeln('Сумма максимального и минимального элементов = ', max + min); writeln('Среднее арифметическое элементов массива = ', sum/15); end.
arr: array[1..15] of integer;
min, max, i, sum: integer;
begin
min := MaxInt;
max := -(MaxInt);
for i := 1 to 15 do
begin
readln(arr[i]);
if arr[i] > max then max := arr[i];
if arr[i] < min then min := arr[i];
sum := sum + arr[i];
end;
writeln('Сумма максимального и минимального элементов = ', max + min);
writeln('Среднее арифметическое элементов массива = ', sum/15);
end.