Массивы (Pascal)

[kvinkelman]

Помогите решить задачи в среде Паскаль
1) Информация о среднесуточной температуре воздуха за месяц задана в виде одномерного массива (t(dey)).Определить, сколько дней температура была ниже среднемесячной. Число дней в месяце определять программно по названию.

2) Получить целочисленную квадратную матрицу А(7), элементами которой являются числа 1,2,...,49, расположенные в ней по спирали.
Хотя бы что-то одно) буду очень благодарен.

[Dvoishnik]

попытки, наработки??

[Aleksandr H.]

1. чуть дошаманить и сойдет http://www.cyberforum.ru/pascalabc/thread454776.html

Сообщение от kvinkelman

2) Получить целочисленную квадратную матрицу А(7), элементами которой являются числа 1,2,...,49, расположенные в ней по спирали.
Хотя бы что-то одно) буду очень благодарен.

http://programmersforum.ru/showthread.php?t=3338

[newerow1989]

1 задача:

const m:array[1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
var t:array[1..31] of integer;
    i,t0,mes,cday:integer;
    sr:real;
begin
   Randomize;
   Write('mes = ');Readln(mes);
   Case mes of
   1: t0:=-50;
   2: t0:=-30;
   3: t0:=-5;
   4: t0:=8;
   5: t0:=14;
   6: t0:=20;
   7: t0:=25;
   8: t0:=26;
   9: t0:=16;
   10: t0:=2;
   11: t0:=-14;
   12: t0:=-33;
   else
      Writeln('NO MES!');
      Readln;
      Exit;
   end;
   sr:=0;
   For i:=1 to m[mes] do
   begin
      t[i]:=t0+Random(20);
      Write(t[i],'  ');
      sr:=sr+t[i];
   end;
   sr:=sr/m[mes];
   Writeln;
   Writeln;
   cday:=0;
   For i:=1 to m[mes] do
      If t[i]<sr then
         cday:=cday+1;
   Writeln('count day = ',cday);
   Readln;
end.

2 задача

var a:array[1..7,1..7] of integer;
    i,j,di,dj,n:integer;
begin
   For i:=1 to 7 do
      For j:=1 to 7 do
         a[i,j]:=0;
   i:=1;
   j:=1;
   di:=0;
   dj:=1;
   n:=1;
   Repeat
      a[i,j]:=n;
      n:=n+1;
      If n>49 then
         Break;
      If (j=7) or (a[i+di,j+dj]<>0) then
      begin
         di:=1;
         dj:=0;
      end;
      If (i=7) or (a[i+di,j+dj]<>0) then
      begin
         di:=0;
         dj:=-1;
      end;
      If (j=0) or (a[i+di,j+dj]<>0) then
      begin
         di:=-1;
         dj:=0;
      end;
      If (i=0) or (a[i+di,j+dj]<>0) then
      begin
         di:=0;
         dj:=1;
      end;
      i:=i+di;
      j:=j+dj;
   Until false;
   For i:=1 to 7 do
   begin
      For j:=1 to 7 do
         Write(a[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.