Ответ: program gt;var a:array[1..7]of integer;k,i,q:integer;beginread(k);q:=0;for i:=1 to 7 doread(a[i]);for i:=1 to 7 dobeginif(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.

Похожие вопросы и ответы:

Источник znanija.site