Дан массив действительных чисел, размерностью n. Вывести те числа которые аi < i.
program zadacha2;
const
n = 20; {можно менять }
var
mass : array[1..n] of integer;
i : integer;
begin
randomize; {запускаем генератор случ чисел, чтоб в ручную не вводить}
{заполняем массив}
for i := 1 to n do
begin
mass[i] := random(n); { заполняем массив}
write(mass[i], ' '); { выводим результат}
end;
{ выводим всё что нужно}
writeln;
writeln;
for i := 1 to n do
begin
if mass[i] < i then write(mass[i], ' ');
end;
readln;
end.