Решить задачу: Создать массив а из 10 целых чисел, принадлежащих промежутку [-10;25). Вывести полученный массив на экран. Подсчитать к - количество элементов массива, значение которых превышает 10.

Предыдущий
вопрос Следующий
вопрос

Program noname;

var 

A : array [1..10] of integer;

i, k: integer;

begin

Randomize; 

k:=0;

for i:=1 to 10 do 

  begin

   A[i]:=round(random(35)-10);

   Write(A[i],' ');

    if A[i]>10 then k:=k+1;

  end;

WriteLn('k=', k);

end.