Нужна в редактировании программы. данная программа должна заменять на число 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.
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.
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.