Question

Помогите плиз. дан массив. Все его элементы умножить на последний элемент.решить при помощи паскаль.

Answer 1

var

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

i,b:integer;

begin

randomize;

 

for i:=1 to 10 do

read(a[i]);

for i:=1 to 10 do

b:=a[i]*a[10];

write(b); 

 

end.