Тема массив. Напишите на Паскале программу, которая запрашивает с клавиатуры массив из N чисел, а затем выводит среднее арифметическое всех элементов
5-9 класс
|
массива.
var
i,a,N:integer;
sr:real;
begin
write('Vvedite N = ');
readln(N); // Вводите количество чисел в массиве и одновременно вводите диапозон массива от 1 до N
randomize;
for i:=1 to N do
begin
a:=random(N);
write(a,' ');
sr:=sr+a; //Значения массива складываются
end;
sr := (sr / N); //Сумма значений массива делится на количество значений
writeln('srednee arifmeti4eskoe = ',sr:1:2); //Выводится среднее арифметическое
readln;
end.
Другие вопросы из категории
time.vr находится файл doc.txt, доступ к которому осуществляется по протоколу
ftp. Фрагменты адреса данного файла закодированы буквами A, B, C, …, G (см.
таблицу). Запишите последовательность этих букв, которая кодирует адрес
указанного файла в Интернете.
А
Читайте также
созданной программы не менее трех тестов и проверить на них правильность работы алгоритма.
БЕЗ МАССИВА
ПОЖАЛУЙСТА
+194884839383948 К КАРМЕ ТОМУ КТОНАПИШЕТ
целочисленный массив из 30 элементов. Элементы массива могут принимать значения
от
0 до 1000. Опишите на русском языке или на одном из языков программирования
алгоритм, который находит и выводит среднее арифметическое всех элементов
массива, имеющих нечётное значение. Гарантируется, что хотя бы один такое
элемент в массиве есть.
программу, которая запрашивала три числа, подсчитывала их средне и сумму и на экран выводила фразу "Их среднее равно..." и "Их сумма равна..."