1. Подключаются библиотеки, задаётся пространство имён standart, объявляется main, устанавливается поддержка русского языка, объявляется дробная переменная "temp", в консоль выводится "Введите произвольное число: ", запрашивается значение переменной temp, выполняется проверка на равенство значения 36.6. Если оно равно, то выводится в консоль "У вас нормальная температура тела", иначе "У вас повышенная температура", возвращается код ошибки ноль.
2. Ошибки:
Отсутствуют фигурные скобки в функции main (т. е. { })
Логическая ошибка: температура в случае, если она не равна 36.6 может быть не повышенной, а пониженной.
var
a:array of double;
i,n,j:integer;
procedure swap(var x,y: double);
var t: double;
begin
t := x;
x := y;
y := t
end;
begin
write('Кол-во чисел: '); readln(n);
setlength(a,n);
dec(n);
for i:=0 to n do
readln(a[i]);
writeln;
for i:=0 to n do
write(a[i]:6:2);
writeln;
for j:=0 to n-1 do
for i:=0 to N-j-1 do
if a[i] < a[i+1] then
swap(a[i],a[i+1]);
for i:=0 to n do
write(a[i]:6:2);
writeln;
end.
Если моё решение вам, пометьте его лучшим !
Смотри ниже
Выражение, истинное при любых значениях переменных, называется тождественно истинным или тавтологией. Высказывание «Сегодня безветрие, и дует сильный ветер» никогда не может быть истинным. Соответствующее логическое выражение всегда ложно, оно называется тождественно ложным или противоречием