Дано некоторое число k. Указать количество элементов массива, превышающих k.…

Program Task; Var a: Array [1… 10] of Integer; k, c, i: Integer; BeginRandomize; For i: =1 To 10 Doa[i]: =Random (10); WriteLn ('Массив: '); For i: =1 To 10 DoWrite (a[i], '); WriteLn; Write ('k='); ReadLn (k); For i: =1 To 10 DoIf a[i] > k Thenc: =c+1; WriteLn ('Количество элементов: ', c); ReadLn; End.