ПАСКАЛЬ ABC!!!Ввести массив ** 15 чисел. Сумму 5 и 7 элементов массива принять за длину...

Question

ПАСКАЛЬ ABC!!!
Ввести массив на 15 чисел. Сумму 5 и 7 элементов массива принять за длину прямоугольника. Сумму 8 и последнего элементов принять за ширину прямоугольника. Вычислить периметр и площадь прямоугольника, вывести их на экран.

Answer 1

Var
  a : array[1..15] of integer;
  i, l, d : integer;
begin
  for i := 1 to 15 do
    begin
      writeln(i ,' число');
      read(a[i]);
    end;
  l := a[5] + a[7];
  d := a[8] + a[15];
  writeln('Периметр: ',(l + d) * 2, ' Площадь: ', l *d );
end;

Comments

площадь равзе так находится?

---

разве*

---

you failed, спутал с прямоугольным треугольником :3

---

Площад прямоугольника - ширина на высоту, что не так? Если хочешь другое подсчитать, то измени последнюю формулу и всё