Помогите пожалуйста с Паскалем!! Номер 10, 11 Очень надо! Пж не берите у других!!!!!

Question

Помогите пожалуйста с Паскалем!! Номер 10, 11 Очень надо! Пж не берите у других!!!!!

---

Answer 1

10.
program Ok;
const
n=10;
var A:array[1..n] of integer;
B:array[1..n] of integer;
S:array[1..n] of real;
i,k:integer;
c,p:real;
begin
for i:=1 to n do
Read(A[i]);
for i:=1 to n do
Read(B[i]);
for i:=1 to n do
beginc:=sqrt(sqr(A[i])+sqr(B[i]));
p:=(A[i]+B[i]+c)/2;
S[i]:=sqrt(p*(p-A[i])*(p-B[i])*(p-c));
end;
for i:=1 to n-1 do
begin
if(S[i]>S[i+1]) then
k:=i;
end;
writeln('Номер ',k, ' Катеты = ', A[k],' ', B[k],' Площадь = ',S[k]);
for i:=1 to n do
begin
if(S[k]=S[i]) then
writeln('Номер ',i,' Катеты = ', A[i],' ', B[i],' Площадь = ',S[i]);
end;
end.

Comments

Не запускается

---

Потому что у меня бегин и переменная слиплись, вот так строчка должна выглядеть: begin
c:=sqrt(sqr(A[i])+sqr(B[i]));