Очень нужна помощь в редактировании программы. Данная программа должна заменять на число 1000 ТОЛЬКО ПЕРВЫЙ элемент, кратный 4, а у меня заменяются все элементы, кратные 4. Где ошибка?program zamena;var akrat,i,n:integer;a:arra...
Очень нужна помощь в редактировании программы. Данная программа должна заменять на число 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.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость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.
Не нашли ответ?
Похожие вопросы