Составить программу для нахождения разницы между наименьшей и наибольшей температуры за январь (31 день). Значение температуры вводится каждый день.
Нужно найти на языке Pascal
Ответы
Ответ дал:
0
Ответ:
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.
Объяснение:
Вроде так
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад