Перевести код из pascal в c# const n = 10; // меняем для изменения количества чисел var a: array [1..n] of integer; i: integer; procedure fill; begin write('введите число: '); for i : = 1 to n do begin readln(a[i]) end; end; procedure write_ai; begin write('числа для которых ai> i: '); for i : = 1 to n do begin if a[i] > i then write(a[i], ' '); end; end; begin fill(); write_ai(); end.

Mauntians    1   21.05.2019 06:40    2