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


дан одномерный массив, заполненный целыми случайными числами на промежутке от n до m. определить сколько четных элементов стоят на четном порядковом месте.

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

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

    i,s,n,m:integer;

    BEGIN

      randomize;

      read(n,m);

      for i := 1 to 100 do

      begin

         a[i]:=random(m-n) +n;

         if (i mod 2 =0) and (a[i] mod 2 = 0) then s:=s+1;

      end;

      writeln(s);

    END.

     

  2. Ответ
    Ответ дан АлГоРиТм

    var a:array[1..100] of integer;i,s,n,m:integer;BEGIN randomize; read(n,m); for i := 1 to 100 do begin a[i]:=random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s:=s+1; end; writeln(s);END.

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

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