Задача по информатике2!

Question

Помогите написать программу на паскале! дана температура за ноябрь. когда первый раз была самая низкая и самая высокая температура?

Ольга Малышева · Accepted Answer

const n = 30; 
var arr[1..n] of integer; 
i,mx,mn: integer; 
begin 
... 
 ...
mx:=arr[1]; mn:=arr[1]; 
for i:=1 to n do begin 
if mx > arr[ i ] then mx:=arr[ i ]; 
if mn < arr[ i ] then mn:=arr[ i ]; 
end; 
 
writeln('MAX = ',mx,' MIN = ', mn); 
readln; 
end;