Умножить все элементы, кратные трем, на третий элемент массива
Так же в Паскаль АБЦ, 10 класс вроде нужно использовать Рандомайз

Ещё раз спасибо, тоже работает.

uses Crt;const n=5;type Vec=array[1..n] of longint;var A: Vec;    i: integer;begin  ClrScr;  randomize; for i:= 1 to n do     A[i]:=4+random(7); for i:=1 to n do     Write (A[i]:6); WriteLn; WriteLn; for i:=1 to n do        if (A[i] mod 3 = 0) then A[i]:=A[i]*A[3]; for i:=1 to n do     Write (A[i]:6); WriteLn;ReadLn;end.