Значения элементов массивов a[1..10] и b[1..10] с операторов цикла. какими будут значения a[2] и b[9] - id261096320200413 от 8Lisandra8 13.04.2020 11:46

Question

Информатика: Значения элементов массивов a[1..10] и b[1..10] с операторов цикла. какими будут значения a[2] и b[9] после выполнения фрагмента программы ? for n: =1 to 10 do a[n]: =n-8; for m: =1 to 10 do b[m]: =a[m]+m; введите значения a[2] и b[9] через запятую и пробел. (например: 2, 5)

8Lisandra8 · Accepted Answer

Const PTR = 10; type razbivka = array[0..PTR] of byte; var n, i, z, k: byte; x: razbivka; procedure p(var x: razbivka; var z: byte); var i, j, s: byte; begin i := z - 1; s := x[z]; while (i 1) and ( x[i - 1] = x[i] ) do begin s := s + x[i]; dec(i); end; inc( x[i] ); z := i + s - 1; for j := i + 1 to z do x[j] := 1; end; begin write( Введите число: ); readln(n); write(n, = ); z := n; for i := 1 to z do x[i] := 1; for i := 1 to n do begin if i 1 then write( + ); write( x[i], ); end; writeln; repeat...

MOGZ ответил