Выполнить в Паскале:

Массив из 5 вещественных чисел вводится с клавиатуры. Найти среднее арифметическое, min и max элементов массива.

Question

Информатика

Гела

29 марта, 01:47

Выполнить в Паскале:

Массив из 5 вещественных чисел вводится с клавиатуры. Найти среднее арифметическое, min и max элементов массива.

+3

Ответы (1)

Знаете ответ на вопрос?

Гремислав · Answer 1

Var i, n:Integer;

A:Array[1 ... 1000] of Real;

sum, srednee, max, min:Real;

Begin

Read (n) ;

for i:=1 to n do

Read (A[i]) ;

for i:=1 to n do

sum:=sum+A[i];

srednee:=sum/n;

max:=A[1];

min:=A[1];

for i:=1 to n do

begin

if (A[i]>max) then max:=A[i];

if (A[i]
end;

Writeln ('Srednee = ', srednee:0:2,' Min = ', min:0:2,' Max = ', max:0:2) ;

end.

Выполнить в Паскале:Массив из 5 вещественных чисел вводится с клавиатуры. Найти среднее арифметическое, min и max элементов массива.

Выполнить в Паскале:

Массив из 5 вещественных чисел вводится с клавиатуры. Найти среднее арифметическое, min и max элементов массива.