плиз, иначе я всосу... Задание внутри

Лвгврвгнвтагаигаихйдвирвюшпвтоа [email protected] чшриа

Правельный ответ г
Привет как дела

Program z1;
var a:array[1..12] of integer;
i:integer;
begin
for i:=1 to 12 do a[i]:=random(18)-6;    тут присваивается каждому аргументу значение от 1 до 18 - 6  т.е от -5 до 12 
for i:=1 to 12 do writeln(a[i]*a[12]);    тут выводим умножив на последний аргумент
end.

7)Руслан
8)друга ищи,а найдешь-береги
старый друг лучше новых двух