Дан целочисленный массив из 7 элементов, в котором записаны значения температуры воздуха за неделю. Элементы массива могут принимать значения от (–10) до 0. Составьте программу, которая подсчитывает и выводит номер дня недели, когда температура была максимальной.

var

 temp:array [1..7] of shortint;

 i,max:byte;

begin

 randomize;

 for i:=1 to 7 do temp[i]:=random(10)-10;

 max:=1;

 for i:=2 to 7 do if temp[i]>temp[max] then max:=i;

 writeln(max);

end.  

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.