• помогите плиз, Заполнить массив случайными числами в интервале [1000;2000) и подсчитать число элементов у которых вторая с конца цифра четная.

Ответы 1

  • var a:array [1..100] of integer;

    i,n:integer;

    s:string;

    Begin

      randomize;

      for i :=1 to 100 do

      begin

        a[i]:= random(1000)+1000;

        a[i]:=a[i] mod 100;

        a[i]:=a[i] div 10;

        if a[i] mod 2 = 0 then n=n+1;

      end;

     

      writeln(n);

    End.

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

Еще вопросы

Войти через Google

или

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

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

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