Вопрос Напишите пожалуйста полную программу в Pascal

[Azat]

Дан массив состоящий из 12 случайных чисел от -5 до 12. Все его элементы умножить на последний элемент.

 

[ррррррр]

Написали. Теперь ваша очередь. В цикле перебираете все значения и переприсваиваете с умножением. Хоть учебник откройте...

 

[Jop]

program ideone; var a: array [1..12] of integer; i: integer; begin for i:=1 to 12 do a:= -5 + random(17); for i:=1 to 12 do write(a,); writeln; for i:=1 to 12 do a:= a * a[12]; for i:=1 to 12 do write(a,); end.