Дан массив натуральных чисел. Заполнить с помощью датчика случайных чисел. Подсчитать...

Question

Дан массив натуральных чисел. Заполнить с помощью датчика случайных чисел. Подсчитать количество четных чисел от 1 до 10.

Comments

var a,b,c:integer;d: array[1..1000] of integer;begina:=0;c:=random(-1000,1000); это только до рандома

---

это точно правильно?

---

Рандом не может быть отрицательным

---

рандом от нуля идет

---

ясн

---

спасибо

---

Да я написал уже ребят

---

спасибо вам

---

я б без вас не справилась

---

Пометь мой ответ как "лучший"

Answer 1

Var
  a: array[1..1000] of integer; 
  i: integer;
  chet: integer;
  nechet: integer;
begin
  i:=1;
  Randomize;
  while (i<=1000) do <br>    begin
      a[i] := random(10);
      if( a[i] mod 2 = 0) then
        chet:=chet+1
      else nechet:= nechet + 1;
        i := i + 1;
  end;
 writeln('четных чисел: ',chet,' ','Нечетных чисел: ' ,nechet)
end.