Дан целочисленный массив ** n элементов вывести ** экран элементы, которые меньше или...

Question

Дан целочисленный массив на n элементов вывести на экран элементы, которые меньше или равны своему номеру.
Заранее спасибо

Comments

на Паскале

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var a:=ArrRandom(ReadInteger('n='),-20,20);
  a.Println;
  a.Where((x,i)->x<=i+1).Println<br>end.

Тестовое решение:
n= 15
-16 7 -17 -9 6 3 2 20 -15 7 -10 10 -6 -19 1
-16 -17 -9 3 2 -15 7 -10 10 -6 -19 1

Answer 2

Const n=15; 
var a:array[1..n] of integer;
i:integer; 
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(16);
 write(a[i]:3);
 end;
writeln;
for i:=1 to n do 
 if a[i]<=i then write(a[i]:3) else write(' ':3);<br>writeln;
end.

Пример:
Массив A:
 14  8 14  1  6  2  4  7 10  3  4  6 15 14  2
           1     2  4  7     3  4  6    14  2