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

maria1020304050 maria1020304050    1   18.06.2019 07:00    2

Ответы
Kamikatze5 Kamikatze5  14.07.2020 23:20
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика