Нужна в редактировании программы. данная программа должна заменять на число 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.
vasapipkin934
1
26.05.2019 06:50
0
Другие вопросы по теме Информатика
nastyaplokhovanastya
14.07.2019 03:40
nemkovvlad1
15.04.2020 19:58
лев652
09.02.2021 23:16
Хрусть
09.02.2021 23:28
mminovskaya777
13.05.2020 21:31
89622356703
20.09.2019 09:10
emilimalaya
08.08.2019 22:00
irinacheprasova
26.01.2021 17:33
Популярные вопросы
- Доброго времени суток с алгеброй .До іть!)...
3 - 1. Упростите выражение: a) 8b(b-7)-3b(b+2) б) (e+2)(e-4)+(e-4)^2 в)...
3 - Чим було зумовлено стримування реформаторської активності останнього...
3 - 4.Ключову роль у грунтоутворенні на початкових етапах первинної сукцесії...
2 - Кожен з двох кутів опуклого многокутника по 60*, всі інші - по 165*....
2 - Составить рассказ про Державу Феодоро...
1 - Обчисліть значення виразу: 4 2/3 + (- 2 8/15) - ( - 2 3/5)...
2 - Закон биосавара лапласа имеет вид...
1 - Дослідити і побудувати графікДо іть ів...
3 - 1. Complétez les phrases avec me, te, nous, vous, le, la , les . A...
3
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.