Question

Нужна в редактировании программы. данная программа должна заменять на число 1000 только первый элемент, кратный 4, а у меня заменяются все элементы, кратные 4. где ошибка? program zamena; var akrat,i,n: integer; a: array[1..1000] of integer; begin assign (input,'input.txt'); assign (output,'output.txt'); reset (input); rewrite (output); readln(n); for i: =1 to n do read (a[i]); akrat: =a[1]; for i: =1 to n do begin if a[i] mod 4=0 then a[i]: =1000; end; for i: =1 to n do writeln(a[i]); close (input); close (output); end.

Answer 1

Var
    i, n: integer;
    a: array[1..1000] of integer;

begin
    readln(n);
    for i := 1 to n do
        read(a[i]);
   
    for i := 1 to n do
        if a[i] mod 4 = 0 then begin
            a[i] := 1000;
            break;
        end;
       
    for i := 1 to n do
        write(a[i], ' ');
end.

Answer 2

Program Zamena;
Var akrat,i,n:integer;
      a: Array[1..1000] Of Integer;
Begin
   Assign (input,'input.txt');
   Assign (output,'output.txt');
   Reset (input);
   Rewrite (output);
   Readln(n);
   For i:=1 To n Do Read (a[i]);
      akrat:=a[1];
    For i:=1 To n Do
   If a[i] mod 4=0 then
   Begin
       a[i]:=1000;
       Break;
       End;
   For i:=1 To n Do
   WriteLn(a[i]);
   Close(input);
   Close(output);
End.