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

0 голосов
71 просмотров

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


вопрос по Информатика от (36 баллов)
Дано ответов: 2
0 голосов
 
Правильный ответ

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.

 

ответ от Доцент (53.1k баллов)
0 голосов

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.

ответ от (35 баллов)
...