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;

Answer 2

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

Answer 3

разве*