Заменить все элементы массива, которые делятся без остатка на «3», на единицы (9);

[KatyaV]

Что делаю не так?

uses crt;
const nmax=9;
var a:array[1..nmax] of integer;
    n,i:integer;
begin
radomize;
repeat
write('Введите элементы массива,в том числе ноли:');
for i:=1 to n do
begin 
  write ('a[',i,']=');
  read(a[i]);
  end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln('Замена всех элементов массива, которые делятся без остатка на 3:');
for i:=1 to n do
 begin
  if a[i]<>0 then a[i]:=a[i]/3;
  write(a[i],' ');
 end;
end.

[Sweta]

for i:=1 to n do
 begin
  if a[i]<>0 then a[i]:=a[i]/3;

В этой части. Сначала необходимо проверить делится ли a[i] на 3 без остатка (используя функцию mod), а потом присвоить a[i] значение 1.

[Serge_Bliznykov]

Sweta абсолютно права.

но у Вас в коде ещё куча ошибок. начиная от чисто синтаксических (посмотрите, например, как у Вас записан вызов функции иницилизации генератора псевдослучайных чисел: Randomize;
и заканчивая тем, что Вы количество элементов n используете, а нигде её не вводите.


сравните со своим кодом, проанализируйте,
если есть вопросы - спрашивайте:

uses
  crt;

const
  nmax = 9;

var
  a: array[1..nmax] of integer;
  n, i: integer;

begin
  repeat
    Write('Введите количество элементов в массиве n: ');
    ReadLn(n);
    if n < 1 then WriteLn('Неверно, число n должно быть больше нуля');
    if n > nmax then WriteLn('Неверно, число n должно быть меньше максимально заданного числа, меньше ', nmax);
  until (n >= 1) and (n <= nmax);
  write('Введите элементы массива,в том числе ноли:');
  for i := 1 to n do
  begin
    write('a[', i, ']=');
    read(a[i]);
  end;
  Readln;  
  clrscr;
  writeln('Исходный массив:');
  for i := 1 to n do
    write(a[i], ' ');
  writeln;
  
  writeln('Замена всех элементов массива, которые делятся без остатка на 3:');
  for i := 1 to n do 
  begin
    if a[i] mod 3 = 0 then a[i] := 1;
    write(a[i], ' ');
  end;
  writeln;
  ReadLn
end.