Заполнить массив t размерностью m значениями, введенными с клавиатуры. вывести на экран в одну строку каждый 2 элемент массива, который больше заданного значения k. (язык программирования - паскаль)
Вот. Дружественный интерфейс. Делай лучшим, если Размер массива: '); 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.
