Написать программу которая вводит n элементов массива и вычисляет произведение первого и последнего элемента массива

Question

Информатика

Жанна

17 сентября, 10:20

Написать программу которая вводит n элементов массива и вычисляет произведение первого и последнего элемента массива

+1

Ответы (1)

Знаете ответ на вопрос?

Ядя · Answer 1

var

a:array [1 ... 50] of integer;

i, n, p:integer;

begin

repeat

write ('Razmer massiva: ') ;

readln (n) ;

until n in [1 ... 50];

for i:=1 to n do

begin

write ('A[', i,'] = ') ;

readln (a[i]) ;

end;

p:=a[1]*a[n];

writeln ('Proizvedenie: ', p) ;

readln;

end.