Дан массив из 200 элементов. В массиве записан рост учеников. Найти количество человек рост которых выше 180 см. Язык паскаль

Const

N = 200;

Var

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

i, k:integer;

Begin

Randomize;

Write ('Исходный массив:');

k:=0;

For i: = 1 to N do

Begin

A[i]:=random (101) + 150;

Write (' ', A[i]);

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

End;

WriteLn;

WriteLn ('k = ', k);

ReadLn

End.