Код program n1; var i, n, s, k: integer; A: array [1..20] of integer; begin randomize; for i := 1 to 20 do begin a := random(30); writeln('A(', I, ')=', a); end; k := 0; begin writeln('VVedite 4islo'); readln(s); for i := 1 to 20 do if a = s then k := k + 1 else writeln('4isla net') end; writeln('Kolvo elementov ', s, '=', k); end. б) program n1; var i, n, s, k: integer; A: array [1..20] of integer; begin randomize; for i := 1 to 20 do begin a := random(30); writeln('A(', I, ')=', a); end; k := 1; for i := 1 to 20 do if a[i] mod 2 = 0 then k := a[i]*k ; writeln('Proizvedenie =', k); end.[/I][/I] --- Сообщение объединено с предыдущим 23 окт 2022 Значения сам поменяешь