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

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years