Получение алгоритма для обработки величин с реализацией на языке программирование. работу нужно выполнить в программе pascal abc. дайте готовый, не сложный для того, чтобы выучить алгоритм. буду .
Program Alexey; {программа запрашивает у пользователя значения ежедневной температуры за 14 дней, и выводит максимальное и минимальное значения и в какие дни температруа достигала этих значений, а также вычисляет среднюю температуру за 2 недели} uses crt; const n=14; var i, daymax, daymin:integer; t,max,min,sum:real; begin writeln('Введите температуру за каждый день'); write('День 1-й: T = '); readln(t); max:=t; min:=t; sum:=t; for i:=2 to 14 do //организуем цикл begin write('День ',i,'-й: T = '); readln(t); if t>max then begin max:=t; // найдено новое максимальное значение daymax:=i; // запоминаем соответствующий номер дня end; if t<min then begin min:=t; // найдено новое минимальное значение daymin:=i; // запоминаем соответствующий номер дня end; sum:=sum+t; //суммируем все значения t end; writeln(); writeln('Максимальная температура была на ',daymax,'-й день: ',max,' градусов'); writeln('Минимальная температура была на ',daymin,'-й день: ',min,' градусов'); writeln('Средняя температура за 14 дней: ',sum/14,' градусов'); end.
Очень простой алгоритм:
Program Alexey;
{программа запрашивает у пользователя значения ежедневной температуры за 14 дней, и выводит максимальное и минимальное значения и в какие дни температруа достигала этих значений, а также вычисляет среднюю температуру за 2 недели}
uses crt;
const n=14;
var
i, daymax, daymin:integer;
t,max,min,sum:real;
begin
writeln('Введите температуру за каждый день');
write('День 1-й: T = ');
readln(t);
max:=t;
min:=t;
sum:=t;
for i:=2 to 14 do //организуем цикл
begin
write('День ',i,'-й: T = ');
readln(t);
if t>max then
begin
max:=t; // найдено новое максимальное значение
daymax:=i; // запоминаем соответствующий номер дня
end;
if t<min then
begin
min:=t; // найдено новое минимальное значение
daymin:=i; // запоминаем соответствующий номер дня
end;
sum:=sum+t; //суммируем все значения t
end;
writeln();
writeln('Максимальная температура была на ',daymax,'-й день: ',max,' градусов');
writeln('Минимальная температура была на ',daymin,'-й день: ',min,' градусов');
writeln('Средняя температура за 14 дней: ',sum/14,' градусов');
end.