Заполнить массив T размерностью M значениями, введенными с клавиатуры.

Вывести на экран в одну строку каждый 2 элемент массива, который больше заданного значения K. (Язык программирования - Паскаль)

Вот. Дружественный интерфейс. Делай лучшим, если помог. program pr; var a:array of integer; t, i, k, m:integer; begin write ('Размер массива: ') ; readln (t) ; Setlength (a, t) ; write ('Выводить элемент больше, чем: ') ; readln (k) ; writeln () ; writeln ('Заполняем массив ... ') ; for i:=1 to t do begin write ('Элемент массива ', i,': ') ; readln (a[i]) ; end; writeln () ; writeln ('Следующие элементы больше ', k) ; for i:=1 to t do if a[i]>k then writeln ('Элемент ', i,': ', a[i]) end.