выручите пожалуйста
Добавлено: 21 окт 2009, 18:20
Здраствуйте! Помогите пожалуйста решить одну задачку.
type Город = (N, O, P, R, S);
День = (Pn, Vt, Sr, Ch, P, Sb, Vs);
Потребление = array [Город, День] of real;
var C : Потребление;
r : Город;
z : День;
C[r,z] это потребление электричества города r в день z
нужно:
а) узнать сколько электричества потребляет каждый город в течений недели
б) сколько Э потребляется за день
в)указать какой город потребляет больше Э за неделю
г)указать какой город потребляет меньше Э за неделю
и всё это в одной программе
помогите плиз
за ранее спасибо
type Город = (N, O, P, R, S);
День = (Pn, Vt, Sr, Ch, P, Sb, Vs);
Потребление = array [Город, День] of real;
var C : Потребление;
r : Город;
z : День;
C[r,z] это потребление электричества города r в день z
нужно:
а) узнать сколько электричества потребляет каждый город в течений недели
б) сколько Э потребляется за день
в)указать какой город потребляет больше Э за неделю
г)указать какой город потребляет меньше Э за неделю
и всё это в одной программе
помогите плиз
за ранее спасибо