Максим П. Задача №2
Чтобы разделить зал на четыре прямоугольные зоны, клетки начали красить в форме креста, а закончить не успели. Роберт находится в центре креста. Ему нужно довести разметку до стен.
Напиши программу, которая позволит роботу закрасить соответствующие клетки и вернуться в исходное положение.
move_left()
Сделать шаг влево
move_right()
Сделать шаг вправо
move_up()
Сделать шаг вверх
move_down()
Сделать шаг вниз
wall_from_up()
Проверить, есть ли стена сверху
wall_from_down()
Проверить, есть ли стена снизу
wall_from_left()
Проверить, есть ли стена слева
wall_from_right()
Проверить, есть ли стена справа
free_from_up()
Проверить, свободно ли сверху
free_from_down()
Проверить, свободно ли снизу
free_from_left()
Проверить, свободно ли слева
free_from_right()
Проверить, свободно ли справа
fill_cell()
Закрасить клетку
cell_is_filled()
Проверить, закрашена ли клетка
cell_is_clean()
Проверить, чиста ли клетка

Var
  i:integer;
  t:array[1..3,0..31]of real;
begin
write('Введите температуру в декабре по дням: ');
for i:=1 to 31 do
  begin
  readln(t[1,i]);
  t[1,0]:=t[1,0]+t[1,i];
  end;
t[1,0]:=t[1,0]/31;
write('Введите температуру в январе по дням: ');
for i:=1 to 31 do
  begin
  readln(t[2,i]);
  t[2,0]:=t[2,0]+t[2,i];
  end;
t[2,0]:=t[2,0]/31;
write('Введите температуру в феврале по дням: ');
for i:=1 to 28 do
  begin
  readln(t[3,i]);
  t[3,0]:=t[3,0]+t[3,i];
  end;
t[3,0]:=t[3,0]/28;
writeln('Средняя температура в декабре: ',t[1,0]);
writeln('Средняя температура в январе: ',t[2,0]);
writeln('Средняя температура в феврале: ',t[3,0]);
writeln('Средняя температура зимой: ',(t[1,0]+t[2,0]+t[3,0])/3);
end.

Type mas=array[1..93] of real;
var i,w:byte;season:mas;t:real;

function temp(ses:mas;d:byte):real;
var i:byte;s:real;
begin
s:=0;
for i:=1 to d do s:=s+ses[i];
temp:=s;
end;

begin

repeat
writeln('Год високосный?1-да 0-нет');
read(w);
if (w<>1) and (w<>0) then w:=2;
until w<>2;

writeln('Введите зимние температуры за каждый день:');
for i:=1 to 90+w do readln(season[i]);
t:=temp(season,90+w);
writeln('Среднее арифметическое зимних температур: ',t/(90+w):5:3);

writeln('Введите весенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое весенних температур: ',t/92:5:3);

writeln('Введите летние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,92);
writeln('Среднее арифметическое летних температур: ',t/92:5:3);

writeln('Введите осенние температуры за каждый день:');
for i:=1 to 92 do readln(season[i]);
t:=temp(season,91);
writeln('Среднее арифметическое осенних температур:',t/91:5:3);
end.