В одномерном массиве из 20 целых чисел напечатать номера элементов, значение которых больше числа D. Переменная D вводится с клавиатуры.

Вот, держи :)Если в будущем появятся вопросы -- пиши нам в форму обратной связи на learnpascal.ru Мы поможем :)var a,arr_new: array[1..20] of integer; i,d,count,j: integer; begin write('Введите d: '); readln(d); j:=1; for i:=1 to 10 do begin readln(a[i]); if a[i] > d then begin arr_new[j]:=i; inc(count); inc(j); end; end; writeln; for j:=1 to count do write(arr_new[j],' '); end.