S = 0 + A[0] -A[3] + A[1] - A[4] + A[2] - A[5] + A[3] - A[6] + A[4] - A[7] + A[5] - A[8] +A[6] - A[9] + A[7] - A[10]
Сокращаем лишнее, получаем:
s = A[0] + A[1] + A[2] - A[8] - A[9] - A[10]
Т.к в массиве находятся только двухзначные числа, возьмем максимальное значение - когда знак "+" и минимальное, когда "-" (пр. A[0] = 99, A[8] = 10 - минимальное и максимальное двухзначное значение) :
s = 99+99+99-10-10-10 = 297-30 = 267
//PascalABC.NET
const
n = 10; // Задаем размер массива
var
a: array [1..n] of integer;
i,kol:integer;
begin
for i:=1 to n do begin
A[i]:=(random(30)-15);
if a[i] mod 2 = 0 then begin
write(a[i],' ');
kol:=kol+1;
end;
end;
writeln;
if kol <> 0 then writeln('Кол-во четных элементов: ',kol)
else writeln('Четных элементов нет');
<span>end.</span>
Если это Паскаль, то вот:
program prog1;
var h, a: integer;
P, b, S: real;
begin
write('Высота=');
readln(h);
write('Основание=');
readln(a);
S:=h*a/2;
b:=sqrt((a/2)*(a/2)+h*h);
P:=b+b+a;
writeln('Периметр= ',P);
writeln('Площадь= ',S);
end.