вычислить среднее арифметическое положительных элементов массива F (M)
10-11 класс
|
program primer;
const n=10;
var f:array[1..n] of integer;
k,s,m:integer; sr:real;
begin
writeln ('vvedite massiv');
for m:=1 to n do
readln( f[m]);
k:=0;
s:=0;
for m:=1 to n do
if f[m]>0 then begin
s:=s+f[m];
inc(k);
end;
sr:=s/k;
writeln('sr=',sr);
readln;
end.
Другие вопросы из категории
Определить при каком n два соседних числа будут отличаться друг от друга на величину не превосходящую Е.
Вычислить сумму М таких чисел начиная с К-ого.
Читайте также
решением?методические указания приветствуются)
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
принимать значения от 0 до 1000.описать на русском или на одном из языков програмирования алгоритм,который находит и выводит среднее арифметическое всех элементов массива,имеющих нечетное значение
2) Составить программу для вычисления Т=(R/Q+1)+S. R - наименьший элемент массива;
Q - произведение элементов массива с нечетными номерами;
S - количество элементов, лежащих в интервале (A,B) (ввести с клавиатуры).
3) Вычислить среднее арифметическое положительных элементов матрицы, расположенных ниже
побочной диагонали. Закрасить указанные элементы.