Program Example2; var Rand: array[1 ... 20] of integer; I, X, NumberX:integer, beginRandomize; writeln ('Masiv slychainix chisel') for I:=1 to 20 dobeginRand[I]:random (50); write (Rand[I]:4) end; writeln; write ('Vvedite X:')); readln (X); NumberX:=0; for I:=1 to 20 doif Rand (I) = Xthen NumberX:=NumberX+1; if NumberX=0then writeln ('V masice net chisla ', X) else writeln ('Chislo ', X,'v masive prisytsvyet ', NumberX,'paz') end. Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.

Question

Кирилл Родионов

Информатика

17 декабря, 19:51

Program Example2; var Rand: array[1 ... 20] of integer; I, X, NumberX:integer, beginRandomize; writeln ('Masiv slychainix chisel') for I:=1 to 20 dobeginRand[I]:random (50); write (Rand[I]:4) end; writeln; write ('Vvedite X:')); readln (X); NumberX:=0; for I:=1 to 20 doif Rand (I) = Xthen NumberX:=NumberX+1; if NumberX=0then writeln ('V masice net chisla ', X) else writeln ('Chislo ', X,'v masive prisytsvyet ', NumberX,'paz') end. Это программа из учебника, но она не работает на Pascalе ABC исправте её так что бы работала.

+2

Ответы (1)

Знаешь ответ на этот вопрос?

Алиса Иванова · Answer 1

Правильный вариант программы:

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.