Информатика 9 класс , .1. дан массив а, состоящий из семи случайных чисел из интервала [0; 10]. найти среднее арифметическое минимального и максимального элементов массива.
Var n1,n2,n3,n4,n5:integer; begin Readln(n1,n2,n3,n4,n5); If (n1>n2) and (n1>n3) and (n1>n4) and (n1>n5) then writeln('Максимальное число: ',n1) else If (n2>n1) and (n2>n3) and (n2>n4) and (n2>n5) then writeln('Максимальное число: ',n2) else If (n3>n1) and (n3>n2) and (n3>n4) and (n3>n5) then writeln('Максимальное число: ',n3) else If (n4>n1) and (n4>n3) and (n4>n2) and (n4>n5) then writeln('Максимальное число: ',n4) else writeln('Максимальное число: ',n5); end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,0,10); a.Println;
Writeln((a.Max+a.Min)/2)
end.
Пример
0 6 2 9 4 4 9
4.5