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

Предыдущий
вопрос Следующий
вопрос

Пример кода на Pascal:

program RectangleCalculation;
var
arr: array[1..15] of Integer;
length, width, perimeter, area: Integer;
begin
// Ввод массива на 15 чисел
writeln('Введите массив из 15 чисел:');
for var i := 1 to 15 do
begin
write('Введите ', i, ' элемент: ');
readln(arr[i]);
end;
// Вычисление длины и ширины прямоугольника
length := arr[5] + arr[7];
width := arr[8] + arr[15];
// Вычисление периметра и площади прямоугольника
perimeter := 2 * (length + width);
area := length * width;
// Вывод результата
writeln('Длина прямоугольника: ', length);
writeln('Ширина прямоугольника: ', width);
writeln('Периметр прямоугольника: ', perimeter);
writeln('Площадь прямоугольника: ', area);
end.

После ввода массива из 15 чисел программа вычислит длину и ширину прямоугольника, а затем выведет на экран периметр и площадь прямоугольника.