Создать массив, состоящий из 7 вещественных чисел. Вывести на экран произведение квадратов данных чисел. Элементы массива вводить с помощью оператора "read".

Question

Информатика

Лазарь

5 июля, 07:12

Создать массив, состоящий из 7 вещественных чисел. Вывести на экран произведение квадратов данных чисел. Элементы массива вводить с помощью оператора "read".

+4

Ответы (1)

Знаете ответ?

Лекса · Answer 1

Program n1;

const n=7;

var a: array [1 ... n] of real;

i: integer;

P: real;

begin

P:=1;

for i:=1 to n do read (a[i]) ;

for i:=1 to n do P:=P * (a[i]) * a[i];

writeln (P) ;

end.