Переведите на с++ type mas = array [1..1000] of integer; var a: mas; i, k, j, max: integer; begin readln(max); readln(k); for i := 1 to k do read(A[i]); for i := 1 to k do if a[i] >= max then begin j += 1; max := A[i] + 3; end; writeln(j); end.

lotarev20021    3   16.06.2020 12:10    0