Задача сводится к суммированию элементов массива V с целью нахождения их среднего арифметического. Конечно, такую задачу можно решать и без массива, поскольку нам придется все равно данные вводить с клавиатуры, но уж раз сказано, что "компоненты..." сделаем с массивом.
const n = 7; s = 'PVSCPSV';
var v: array[1..n] of double; i: integer; m: double;
begin Writeln('Вводите суммы ежедневного дохода по дням'); m := 0; for i := 1 to n do begin Write(s[i], ': '); Readln(v[i]); m := m + v[i] end; Writeln('Средний доход за неделю составляет ', m / n:0:3) end.
Тестовое решение:
Вводите суммы ежедневного дохода по дням P: 142539 V: 363135 S: 217432 C: 57395 P: 294722 S: 115390 V: 184933 Средний доход за неделю составляет 196506.571
Думаю, имелось в виду не алгоритм, а программу, так что вот(если имелось в виду именно алгоритм, то напишите в лс): #include <iostream> #include <math.h>
using namespae std;
int main() { double x1,y1,x2,y2; cin>>x1>>y1>>x2>>y2; double m1 = sqrt(x1*x1+y1*y1); double m2 = sqrt(x2*x2+y2*y2); if(m1 < m2) cout << "Ближе A" << endl; else cout << "Ближе B" << endl; /*с учетом иррациональности расстояния между точками почти в большинстве случаев, и неточности плавающих вычислений на компьютере можно пренебречь случаем, когда они равноудалены.*/ char c; cin >> c; return 0; }
===== PascalABC.NET =====
begin
var (строк, столбцов) := ReadInteger2('Укажите P и Q:');
var (от, до) := (-99, 99);
var массив := MatrRandom(строк, столбцов, от, до);
массив.Println;
массив.Rows
.Select(строка -> строка.Sum)
.Count(сумма -> сумма > 0)
.Print
end.