Заполнить массив 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.

От души, по - братски благодарю!!!)))))))

Сделай ответ лучшим. Очки не помешают)