Question

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

Answer 1

Решение на Pascal:

var mas:array [1..31] of integer;

i:integer;

min,max:integer;

begin

min :=100000;

for i:=1 to 31 do begin

writeln ('Введите температуру ',i,'-го дня');

readln(mas[i]);

end;

for i:=1 to 31 do

begin

if mas[i]<min then min :=mas[i];

end;

for i:=1 to 31 do

begin      

if mas[i]>max then max :=mas[i];

end;

writeln ('Минимальная температура= ',min);

writeln ('Максимальная температура= ',max);

end.