Заполнить массив T размерностью M значениями, введенными с клавиатуры.
10-11 класс
|
Вывести на экран в одну строку каждый 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.
Другие вопросы из категории
блок-схему нахождения произведения отрицательных чисел с последовательностью a1, a2, a3, ..., an
Читайте также
элементы массива.в паскале.срочно!!
Заполните массив степенями числа 2( от 2(в первой степени) до 2(в N степени)
100.
2) Заполнить массив целыми положительными и отрицательными числами из интервала [-10;10] и вывести его в строчку. Поменять знаки элементов массива на противоположные и повторно вывести массив на экран в строчку.
Пожалуйста,помогите,очень срочно!!!
все нечетные элементы должны быть отрицательными, а четные – положительными.
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу