Вопрос по информатике:
Очень нужна помощь в редактировании программы. Данная программа должна заменять на число 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.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.01.2017 10:54
- Информатика
- remove_red_eye 11604
- thumb_up 15
Ответы и объяснения 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.
- 17.01.2017 15:14
- thumb_up 8
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.
- 19.01.2017 00:25
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.