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

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

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

program RectangleCalculation
va
arr: array[1..15] of Integer
length, width, perimeter, area: Integer
begi
// Ввод массива на 15 чисе
writeln('Введите массив из 15 чисел:')
for var i := 1 to 15 d
begi
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 чисел программа вычислит длину и ширину прямоугольника, а затем выведет на экран периметр и площадь прямоугольника.