с примером. (Если есть возможность напишите на листочке решение)

281

459

Посмотреть ответы 1

Ответы на вопрос:

AnnHaylen

Информатика

4,5(42 оценок)

:d ну го ничего если на паскале напишу ? uses crt; var a: array[1..50] of integer ; i,j,n,x,t,k: integer; b: string; begin read(n); for i: = 1 to n do begin a[i]: =random(15); write(a[i],' '); end; writeln; for i: = 1 to n-1 do for j: = i+1 to n do if a[i]> a[j] then begin t: =a[i]; a[i]: =a[j]; a[j]: =t; end; for i: = 1 to n do write(a[i],' '); writeln; read(x); for i: = 1 to n do if a[i] = x then k: =k+1; str(k,b); n: =length(b); if k in [11..19] then write (k,' раз') else if k = 0 then write('число ',x,' не встречается ')else case b[n] of '0','1','5','6','7','8','9': write (k,' раз'); '3','4','2': write (k,' раза') ; end; end.