Даны действительные числа a1, a2, … , an Известно, что a1 > 0 и что среди
a2, a3, … есть хотя бы одно отрицательное число. Пусть a1, …, aj — члены данной
28
последовательности, предшествующие первому отрицательному члену (j заранее
не известно). Получить среднее геометрическое a1, …, aj.
ответ в виде кода на C++
C++
Объяснение:
#include <iostream>
using namespace std;
#include <string>
//На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём.Найти среднее арифметическое всех двузначных чисел которые делятся на 7. С++
int main()
{
int number;
int count = 0;
float summ = 0;
int otvet;
cin >> number;
while (number != 0) {
cin >> number;
if ((number >= 10 && number <= 99) && (number % 7 == 0)) {
summ += number;
count++;
}
if (number == 0) {
otvet = summ / count;
cout << "Otvet: " << otvet << endl;
break;
}
}
}
znanija
Поиск...
Избавься от ограничений
ПОПРОБУЙ ЗНАНИЯ ПЛЮС СЕГОДНЯ
User avatar
Nastyukha0
10.02.2015
Информатика
5 - 9 классы
ответ дан • проверенный экспертом
заполнить массив состоящий из 10 элементов случайными целыми числами из промежутка [-50;50]. Выведите на экран и вычислите сумму всех отрицательных элементов. Как в программе паскаль. Заранее огромное с:
1
СМОТРЕТЬ ОТВЕТ
Что означает фраза "КАК в программе паскаль" ?:
И потом, "Выведите на экран и вычислите сумму" - это не по-русски, потому что сначала надо вычислить, а затем вывести.
Войди чтобы добавить комментарий
Реклама
ответ, проверенный экспертом
5,0/5
3
Участник Знаний
const
n = 10;
var
x: array[1..n] of integer;
i, s: integer;
begin
Randomize;
Writeln('Элементы массива');
s := 0;
for i := 1 to n do
begin
x[i] := Random(101) - 50;
Write(x[i]:4);
if x[i] < 0 then s := s + x[i]
end;
Writeln;
Writeln('Сумма отрицательных элементов равна ', s);
end.