составьте программу вычисления среднего арифметического отрицательных элементов массива. заранее спасибо!!!
10-11 класс
|
uses CRT;
cоnst n = 15;
var b: array [1..n] of Integer; s,p,k: Integer;
begin
clrscr;
for k:=1 to n do readln(b[k]);
s:=0;
p:=0;
for k:=1 to n do if b[k] < 0 then
begin
s:=s+b[k];
p:=p+1;
end;
writeln('Среднее арифм. равно: ', (s/p):9:4);
readkey;
end.
Другие вопросы из категории
отрицательные и равные нулю. Используя оператор цикла, составить программу, вычислить количество положительных и нулевых и сумму отрицательных.
Листинг программы:
Program Massiv;
Const n=10;
Var A:array [1..4] of integer;
I, c, c2, c3: integer;
Begin
For i=1 to N do begin
Readln (a[i]); If (a[i]=0 then inc(c)
Else if ([ai]<0) then inc(c2)
Else inc (c3);
End;
Writeln (`нулевые:`,c);
Writeln (`отрицательные:`,c2);
Writeln (`положительные:`,c3);
End.
А8. укажите , какое логическое выражение равносильно выражению
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
помогите плиз!
Написать программу расчета среднего арифметического отрицательных элементов в одномерном массиве. Заменить минимальный элемент в одномерном массиве на полученное среднее арифметическое.
Ввести размерность матрицы и значения ее элементов.
Определить максимальный и минимальный элемент. Переставить их местами.
Найти среднее арифметическое отрицательных элементов в i-ой строке.
принимать значения от 0 до 1000.описать на русском или на одном из языков програмирования алгоритм,который находит и выводит среднее арифметическое всех элементов массива,имеющих нечетное значение