Ежедневно в течение октября измерялась температура воздуха в г. Мурманске, а
данные занесли в одномерный массива. Определить, в какие дни наблюдалась самая низкая температура и какая.
Шаблон задания:

program MURMANSK;
var T:array[ ] of integer;

begin

for i:=1 to do begin
T[i]:= ;
writeln( );
end;

for i:= to do
if then ;
writeln ('Min=', MIN);
for i:=1 to do
if then ;
end.

program MURMANSK;const n=31;var T:array[1..n] of integer;i,min:integer;beginRandomize;for i:=1 to n do beginT[i]:=random(15)-10;write(T[i]:4);end;writeln;min:=T[1];for i:=2 to n do if T[i]<min then min:=T[i];writeln ('Min=', min);for i:=1 to n do if T[i]=min then write(i:3);writeln;end.Пример: -6 0 -5 1 -5 3 -6 -7 -3 -3 -3 0 -10 0 -6 -1 -8 -7 3 -10 2 2 2 -2 -10 1 1 3 2 -5 -4 Min=-10 13 20 25