Дано: одномерный массив D(n) ; n=10. Из элементов, меньше 10, сформировать массив B.Из...

Question

Дано: одномерный массив D(n) ; n=10. Из элементов, меньше 10, сформировать массив B.Из элементов, больше 10 сформировать массив С.Найти количество элементов, равных 10.
ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ НА ПАСКАЛЕ!!!

Comments

Нет конечно, языки абсолютно разные

---

Буду очень благодарна Вам!

---

тогда не подойдет. у меня задание написать на паскале

---

На паскале писать себя не уважать)

---

На паскале писать, значит постигать основы и методы программирования. Для обучения отличный язык. :)

---

) может быть. но у меня задание такое.

---

Я напишу на паскале)

---

отличный, только я в нем ничего не понимаю

---

Когда его изучаешь, возвращаться не хочеться

---

Спасибо

Answer 1

Uses crt;const  n=10;var  D,B,C: array [1..n] of integer;  i,k: integer;
begin  for i:=1 to n do  begin    D[i]:=random(100);    writeln(D[i]);  end;  for i:=1 to n do   begin    if D[i]<10 then B[i]:=D[i];    if D[i]>10 then C[i]:=D[i];    if D[i]=10 then inc(k);  end;  writeln('Кол-во элементов, равных 10 = ',k);end.

Comments

Спасибо!))))