Question

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

Answer 1

Const n = 10;
var a:array[1..n] of integer;
  k,i:integer;
begin
  //Заполнение массива значениями в диапазоне
  //от 0 до 25
  //и одновременно находим количество нужных элементов
  k:=0;
  for i:=1 to n do begin
    a[i]:=random(26);
    if a[i]<=12 then k:=k+1;
    write(a[i]:3);
  end;
  writeln;
  writeln('Всего элементов <=12 : ',k);
 end.