Предмет: Информатика,
автор: dikor48
Составить программу для нахождения разницы между наименьшей и наибольшей температуры за январь (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.
Объяснение:
Вроде так
Похожие вопросы
Предмет: Қазақ тiлi,
автор: 45637
Предмет: Русский язык,
автор: гога7
Предмет: Русский язык,
автор: халима2004
Предмет: Русский язык,
автор: MOLDOBAEVA