Задать вопрос
30 августа, 20:57

Дан массив из 5 элементов. Найти средне арифметическое всех элементов массива.

+2
Ответы (1)
  1. 30 августа, 22:50
    0
    Program ArrayAverage;

    var a: Array [1 ... 5] of Integer;

    i: Integer;

    b: Real;

    Begin

    b : = 0;

    WriteLn ('Введите 5 целых чисел через пробел и нажмите Enter') ;

    For i : = 0 To 4 Do

    Begin

    Read (a[i]) ;

    End;

    For i : = 0 To 4 Do

    Begin

    b : = b + a[i];

    End;

    b : = b / 5;

    Write ('Среднее арифметичиское: ') ;

    WriteLn (b:10:2) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив из 5 элементов. Найти средне арифметическое всех элементов массива. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы