1) дан массив целых чисел, состоящий из 10 элементов

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.