Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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;