Даны 4 программы. опишите своими словами, что они делают. а) const n = 30; var a: array[1..n] of integer; i: integer; begin for i : = 1 to n do a[i] : = i; for i : = 1 to n do writeln(a[i]); end. б) const n = 30; var a: array[1..n] of integer; i: integer; begin for i : = 1 to n do if i mod 2 < > 0 then a[i] : = 1 else a[i] : = 0; for i : = 1 to n do writeln(a[i]); end. в) const n = 10; var a: array[1..n] of integer; i, k: integer; begin for i : = 1 to n do readln(a[i]); k : = 0; for i : = 1 to n do if a[i] = 0 then k : = k + 1; writeln(k); end. г) const n = 10; var a: array[1..n] of integer; i, k, sum: integer; begin for i : = 1 to n do readln(a[i]); k : = 0; sum : = 0; for i : = 1 to n do if a[i] > 0 then begin k : = k + 1; sum : = sum + a[i]; end; writeln(k, sum: 5); end.

алёнка1234567891    3   20.05.2019 23:50    0