Объяснение:
Const n=12;
Var T:array[1..n] of real;
i,imax:integer;
sr:real;
Begin
writeln('Введите среднии температуры за каждый месяц года');
sr:=0;
For i:=1 to n do
Begin
read(T[i]);
sr:=sr+T[i];
End;
sr:=sr/n;
writeln('Среднегодовая температура = ',sr:0:2);
imax:=1;
For i:=2 to n do
if T[i]>T[imax] then imax:=i;
writeln('Самая высокая среднемесячная температура была в месяце');
writeln('под номером ',imax,' и составила ',T[imax]:0:2);
readln;
End.
Вроде так.
// Внимание! Если программа не работает, обновите версию!
begin
var HasReal:(real,real,real)->boolean:=(a,b,c)->b*b-4*a*c>=0;
Writeln(HasReal(5.5,-3,4.2));
Writeln(HasReal(1,-2,-6))
end.
Результат
False
True
Первая строка - определение функции HasReal, остальные две - примеры обращения к ней.