Одномерные массивы

[chistayastranichka]

Одномерный массив натуральных чисел задан с клавиатуры. нужно заменить на число элементы, имеющие остатки 2 или 3 при делении на 4.

[spamer]

Ну так в чем проблема?
Идете по массиву в цикле, проверяете остаток каждого элемента при делении на 4 и если остаток равен 2 или 3, то заменяете на число (вы не указали какое).

[Arkuz]

program proga;
const
  n=6;
var
 i:integer;
 mas:array [1..n] of integer;
begin
  for i:=1 to n do
    begin
      write('mas[',i,'] = ');
      readln(mas[i]);
    end;
  for i:=1 to n do
    begin
      if mas[i] mod 4 = 3 then mas[i]:=3;//заменяем на 3
      if mas[i] mod 4 = 2 then mas[i]:=2;//заменяем на 2
    end;
  writeln('********************************');
  for i:=1 to n do writeln('mas[',i,'] = ',mas[i]);
  readln;
end.