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

1
) может быть. но у меня задание такое.
Я напишу на паскале)
отличный, только я в нем ничего не понимаю
Когда его изучаешь, возвращаться не хочеться
Спасибо

Ответы и объяснения

2013-11-20T18:27:10+04:00
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.