Question

Составить программу для нахождения разницы между наименьшей и наибольшей температуры за январь (31 день). Значение температуры вводится каждый день.

Нужно найти на языке Pascal​

Answer 1

Ответ:

program task;

const n = 31;

var

   a: array [1..n] of integer;

   max, min, i : integer;

   

begin

 for i:=1 to 31 do

   readln (a[i]);

   

 max:= a[1];

 min := a[1];

 for i:= 2 to 31 do

   if ( a[i] > max ) then

       max:= a[i];

     

 for i:=2 to 31 do

   if (a[i] < min) then

       min := a[i];

       

   

 writeln('Max: ');

 write(max);

 writeln('Min: ');

 write(min);

end.

Объяснение:

Вроде так