Составить программу.

[don1337]

Составить программу которая заменяет все числа кратные 18 на 29 (Массив А целых чисел формируется случаиным образом в интервале от 16 до 39).

[don1337]

UP срочно help!

[domovou]

const n=20;
var a:array [1..1000] of integer;
    i:integer;
begin
for i:= 1 to n do
    begin
    a[i]:=random(24)+16;
    write(a[i]:3);
    if a[i] mod 18 = 0 then a[i]:=29;
    end;
writeln;
for i:= 1 to n do
    write(a[i]:3);
readln;
end.

[don1337]

Великое тебе спасибо.