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

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

Question

Информатика

Бронислава

27 июня, 09:07

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

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

+3

Ответы (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 элементов. вывести индексы тех элементов значения которых больше заданного числа а