Задать вопрос
18 октября, 14:35

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

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

+3
Ответы (1)
  1. 18 октября, 17:18
    0
    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 элементов массива. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Program naim4; var a, b, c, d, min:real; begin; writeln ('введите 4 числа') ; readln; min:=a; if b < min then min:=b; if c < min then min:=c; if d < min then min:=d; writeln ('минимальное ', min) ; readln; end.
Ответы (2)
Где ошибка? Sub сер Dim x, y, z, f, max, min As Single x = Val (InputBox (2)) y = (InputBox (6)) z = (InputBox (10)) If x / 2 > y / 3 > z / 4 Then If x / 2 > y / 3 Then max = x / 2 Else max = y / 3 End If End If Else If y / 3 > z / 4 Then max =
Ответы (1)
1. Массив и 4 целых чисел вводится с клавиатуры. Найти и вывести произведение элементов массива. 2. Массив из 6 отрицательных и положительных целых чисел вводится в области описания констант. Найти сумму положительных элементов массива. 3.
Ответы (1)
Исправить ошибки в паскале program massiv2; type mas=array [1 ... 100] of integer; var a: = Max; i, n, min, max, b : integer; недопустимый символ: = (д/б просто :; неизвесмтное имя типа max) begin writeln ('n=') ; readln (n) ;
Ответы (2)
Составить блок-схему к данному коду Var Min, Max, i, m, n:Integer Begin Readln (n) ; max:=-maxint-1; min:=maxint For I:=1 to n do begin ReadLn (m) ; If (m>max) then max:=m; If (m end; Writeln (max,' ', min) ; End.
Ответы (1)