Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива
10-11 класс
|
var
i: integer;
a: array [1..5] of integer;
s: real;
begin
writeln('Введите 5 элементов массива через пробел:');
s:=0;
for i:=1 to 5 do begin read(a[i]); s:=s+a[i]; end;
s:=s/5;
write('Среднее арифметическое: ',s:0:15);
end.
Другие вопросы из категории
Написать программу, выполняющую поиск максимальных элементов в каждой строке заданной матрицы.
пышной булочки,а получилась слово ,обозначающее устройство для в вода информации в компьютер.Что написал програмист ,если известно , что он добавляет ,убирает или заменяет в слове ровно по одной букве
Читайте также
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Ввести с клавиатуры массив из 5 элементов, найти минимальный из них.
напишите пожалуйста в паскале