Ежедневно в течение октября измерялась температура воздуха в г. мурманске, а данные занесли в одномерный массива. определить, в какие дни наблюдалась самая низкая температура и какая. шаблон : 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;
begin
Randomize;
for i:=1 to n do begin
T[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