Program example2; var rand: array[1..20] of integer; i, x, numberx: integer, begin randomize; writeln('masiv slychainix chisel') for i: =1 to 20 do begin rand[i]: random(50); write(rand[i]: 4) end; writeln; write('vvedite x: ')); readln(x); numberx: =0; for i: =1 to 20 do if rand(i)=x then numberx: =numberx+1; if numberx=0 then writeln('v masice net chisla ', x) else writeln('chislo ', x, 'v masive prisytsvyet ', numberx, 'paz') end. это программа из учебника, но она не работает на pascalе abc исправте её так что бы работала.

Uses crt; var a, b, c, i, n: integer;     s : array [1..10000] of integer; begin       clrscr;       writeln ('введите размер массива, который надо сгенерировать');       read (n);       for i: =1 to n do              s[i]: =random(50);       for i: =1 to n do              writeln (i, ' элемент равен ', s[i]);       writeln ('введите число, которое нужно найти');       read (a);       for i: =1 to n do               if s[i]=a then inc(b);       if b=0 then writeln('в массиве нет числа  ',a) else writeln('число ', a,' в массиве встречается ', b,' раз'); end.p.s. надеюсь на и лучший ответ.

Program example2; var rand: array[1..20] of integer; i,x,numberx: integer; begin randomize; writeln('masiv slychainix chisel'); for i: =1 to 20 do begin rand[i]: =random(50); write(rand[i]: 4) end; writeln; write('vvedite x: '); readln(x); numberx: =0; for i: =1 to 20 do if rand[i]=x then numberx: =numberx+1; if numberx=0 then writeln('v masice net chisla ',x) else writeln('chislo ',x,'v masive prisytsvyet ',numberx,'paz') end.ошибок то 4- скобка лишняя, массив не был описан правильно и точка с запетой не стояла 

А́вторское пра́во — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях. Программы для ЭВМ и базы данных также охраняются авторским правом. Они приравнены к литературным произведениям и сборникам, соответственно[1].

Авторское право включает как неимущественные (моральные) права автора, которые неотъемлемы и действуют бе , так и имущественные права на использование произведения, которые автор может передавать другим лицам.

Так?

1) один символ (например буква) = 1 байт. 1 байт = 8 бит (или по другому - 8 разрядов). некоторые символы, например иероглифы не умещаются в 1 байт потому что их много, поэтому для них используют не один байт, а больше. если для символа нужно больше 8 бит, то прибавляют не недостающее число битов, а удваивают число байт. поэтому буквы (символы) или 8-ми разрядные (1 байт), или 16-ти разрядные (2 байта), или 32-х разрядные (4 байта). 2) мама - это 4 обычных символа, или 4 байта (32 бита). 3) один байт, или 8 бит. 4) 15 байт - количество всех букв + пробелы + точка. или 120 бит. 5) 21 байт, или 168 бит (все буквы + пробел + точка). 6) 7 букв = 7 байт. 7) 20 х 40 = 800 символов/страница. 2 страницы = 1600 символов. 1600 символов = 1600 байт, или 1600 х 8 = 12800 бит. 8) 20 байт. 9) большой латинской "ай" - "i". 10) латинская буква "n". 11) маленькая латинская "ай" - "i". из формулы хартли n=