Портали забезпечують агрегацію інформації, управління інформацією і її доставку черезInternet/intranet/extranet

161

206

Посмотреть ответы 1

Ответы на вопрос:

DenisMarvin

Информатика

4,4(71 оценок)

Var a,k,i: integer; s: real; begin s: =0; k: =0; for i: =1 to 7 do begin readln(a); s: =s+a; if a> 0 then inc(k); // сколько раз в неделю температура была выше нуляend; s: =s/7; //средняя температура. end.