1) дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Вывести...

Question

1) дан массив целых чисел,состоящий из 10 элементов. Заполнить его с клавиатуры. Вывести на экран только те числа,для которых из значение больше номера их индекса. Помогите пожалуйста,срочно надо!!!((

Answer 1

var
    m : array [1..10] of Integer;
    i : Integer;
begin

   Writeln('Введите массив:');
   for i := 1 to 10 do
   begin
      Write(i, ': ');
      Readln(m[i]);
   end;

   for i := 1 to 10 do
      if m[i] > i then
         Write(m[i], ' ');

 

   ReadLn;
end.