ZergModeOn
Опубликовано 7 лет назад по предмету Информатика от ZergModeOn


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

  1. Ответ
    Ответ дан archery

    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.

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц