Написать программу для pascal.
Программа считывает с клавиатуры массив из N элементов(N <1000) и выводит максимальный и минимальный элемент массива и их среднее арифметическое
Программа считывает с клавиатуры массив из N элементов(N <1000) и выводит максимальный и минимальный элемент массива и их среднее арифметическое
Answers & Comments
Verified answer
1.var x : array[1..1000] of integer;
n,i,max,min : integer;
begin
write('n = ');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do begin
write('x[',i,']=');
readln(x[i]);
end;
writeln;
max:=x[1]; min:=x[1];
for i:=2 to n do
begin
if x[i] > max then max:=x[i];
if x[i] < min then min:=x[i];
end;
writeln('max=',max,' min=',min);
writeln('Среднее = ',(max+min)/2:5:2);
end.
Пример:
n = 5
Исходный массив:
x[1]=12
x[2]=45
x[3]=60
x[4]=72
x[5]=68
max=72 min=12
Среднее = 42.00
-----
2.
begin
var n:=ReadInteger('n = ');
var a:=ReadArrInteger('Вводите массив:',n);
Writeln('Max = ',a.Max);
Writeln('Min = ',a.Min);
Writeln('Среднее = ',(a.Max+a.Min)/2);
end.