Компоненты переменной v представляют собой ежедневный доход предприятия .Напишите программу которая подсчитывает средний ежеднев
ный доход.(Относиться к <span>турбо паскаль) Описание type Zi (это типо дни как на молдавском пишется )=(P,V,S,C,P,S,V)-дни недели Venit(с нашего языка пришел или пришли)=array [Zi] of real; var v:Venit;</span>
Задача сводится к суммированию элементов массива 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