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 исправте её так что бы работала.

Question

Информатика

Нестор

13 февраля, 12:04

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 исправте её так что бы работала.

+3

Ответы (2)

Знаете ответ на вопрос?

Авдокея · Answer 1

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. Надеюсь на благодарность и лучший ответ.

Назарий · Answer 2

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-5 ... скобка лишняя, массив не был описан правильно и точка с запетой не стояла