Question

При температуре воздуха зимой до -20°С потребление угли тепловой станцией составляет K тонн в день При температуре воздуха от -30° С до -20° С дневное потребление увеличивается на 5 тонн, если температура воздуха ниже -30° С, то потребление увеличивается еще на 7 тонн. Составить таблицу потребления угля тепловой станцией за неделю. Сколько дней температура воздуха была ниже -30° С?

Answer 1

program gt;
var a:array[1..7]of integer;
k,i,q:integer;
begin
read(k);
q:=0;
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
begin
if(a[i]>-20)then writeln(i,' день ',k,' тонн угля');
if(a[i]<=-20)and(a[i]>=-30)then writeln(i,' день ',k+5,' тонн угля');
if(a[i]<-30)then writeln(i,' день ',k+12,' тонн угля');
if(a[i]<-30)then q:=q+1;
end;
writeln(q,' дней температура было ниже -30');
end.