Какие команды присваивания составлены правильно? 4+Y=:B B=Y+2 B=Y B:=Y

Question

Информатика: Какие команды присваивания составлены правильно? 4+Y=:B B=Y+2 B=Y B:=Y

4ebybek · Accepted Answer

Может это

Program TemperatureInDecember;

Uses crt;

Var tempDecember : array[1..31] of integer;

i, countPlus, countZero, countMinus : integer;

begin

Clrscr;

countPlus := 0;

countZero := 0;

countMinus := 0;

for i:= 1 to 31 do

begin

if tempDecember = 0 then countZero += 1

else if tempDecember > 0 then countPlus += 1

else countMinus += 1;

end;

writeln('В декабре дней с нулевой температурой было: ', countZero);

writeln('В декабре дней с отрицательной температурой было: ', countMinus);

writeln('В декабре дней с положительной температурой было: ', countPlus);

readln;

end.

Плохо отобразилось, вот скрин: