Question

Создайте массив a из 18 целых чисел, принадлежащих полуинтервалу [0;30)
Подсчитайте k количество элементов, значение которых превышает 15

Answer 1

var 
a: array[1..18] of integer; 
i, j,k: integer; 
begin 
for i := 1 to 18 do begin 
a[i]:=random(30); 
write(a[i]:3, ' ');
end; 
writeln;
for i := 1 to 18 do begin
if a[i]>15 then k:=k+1;
end;
write(k);
readln; end.

Answer 2

А вот где write(a[i]:3, ‘ ‘) там точно 3?

Answer 3

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(18,0,30); a.Println;
  Writeln('Элементов, превышающих значение 15: ',a.Where(x->x>15).Count)
end.

Пример
24 26 26 25 15 22 11 16 5 28 5 3 13 9 15 24 2 0
Элементов, превышающих значение 15: 8