В одномерном массиве из 20 целых чисел напечатать номера элементов, значение которых больше числа D. Переменная D вводится с клавиатуры.
В одномерном массиве из 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.
Не нашли ответ?
Похожие вопросы