Написать программу

дан массив целых чисел состоящий из 20 элементов. вывести индексы тех элементов значения которых больше заданного числа а

Question

Информатика

Степанида

8 августа, 20:29

Написать программу

дан массив целых чисел состоящий из 20 элементов. вывести индексы тех элементов значения которых больше заданного числа а

+4

Ответы (1)

Знаете ответ на вопрос?

Идея · Answer 1

Var

b:array[1 ... 20]of integer;

i, a:integer;

begin

for i:=1 to 20 do

begin

b[i]:=random (20) ;

write (b[i],'; ') ;

end;

writeln;

writeln ('Введите число:') ;

readln (a) ;

write ('Индексы: ') ;

for i:=1 to 20 do

if b[i]>a then write (i,'; ') ;

end.

Написать программудан массив целых чисел состоящий из 20 элементов. вывести индексы тех элементов значения которых больше заданного числа а

Написать программу

дан массив целых чисел состоящий из 20 элементов. вывести индексы тех элементов значения которых больше заданного числа а