Program Example2;var Rand: array[1..20] of integer; I,X,NumberX:integer,beginRandomize;writeln('Masiv slychainix chisel')for I:=
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; <span>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')<span> end.
Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.</span></span>
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') <span>end. </span>Ошибок то 4-5... скобка лишняя, массив не был описан правильно и точка с запетой не стояла
<em>uses crt;</em> <em>var a, b, c, i, n:integer; </em> <em>s :array [1..10000] of integer;</em> <em>begin</em> <em> clrscr;</em> <em> writeln ('Введите размер массива, который надо сгенерировать');</em> <em> read (n);</em> <em> for i:=1 to n do </em> <em> s[i]:=random(50);</em> <em> for i:=1 to n do </em> <em> writeln (i, ' элемент равен ', s[i]);</em> <em> writeln ('Введите число, которое нужно найти');</em> <em> read (a);</em> <em> for i:=1 to n do</em> <em> if s[i]=a then inc(b);</em> <em> if b=0 then writeln('В массиве нет числа ',a) else writeln('Число ', a,' в массиве встречается ', b,' раз');</em> <span><em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em> </span>