Дан массив из 5 элементов. Найти средне арифметическое всех элементов массива.
5-9 класс
|
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.
На каком языке программиррванмя написать?
Другие вопросы из категории
Путешественник послал проводника узнать, к какому племени принадлежит этот человек. Проводник вернулся и сказал, что житель говорит, что он абориген. Кем был проводник: пришельцем или аборигеном?
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.
арифметическое всех элементов массива a