Var a,b,c,S,p:real;
begin
readln(a,b,c);
if (a<b) and (b<c) then writeln(a,b,c);
p:=0;
p:=a+b+c/2;
S:=0;
S:=sqrt(p*(p+a)*(p+b)*(p+c));
writeln(S:5:3);
end.
1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. Тупо проверяем число на чётность:
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН
КОН
3)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ;
УКАЗ
мин_зн := массив[0]; мин_ном := 0;
ОТ сч := 1 ДО N - 1 ВЫП
ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН
КОН
//PascalABC.NET v3.3 1633
var arr: array [1..9] of byte;
begin
for var i:=1 to 9 do
arr[i]:=random(50,60);
for var i:=1 to 9 do
writeln(arr[i]);
var sum:=0;
for var i:=1 to 9 do
sum += arr[i];
writeln('Сумма эл. массива: '+sum);
end.
Забыл еще объявить массив х, нужно написать array of integer.