Задать вопрос
ИнформатикаИнформатика
30 октября, 12:55

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

+5
Ответы (2)
  1. 30 октября, 13:22
    0
    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 ... скобка лишняя, массив не был описан правильно и точка с запетой не стояла
  2. 30 октября, 14:13
    0
    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 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Даны два числа. Найти среднее арифметическое кубов этих чисел. Что тут не так? program chisla; var a, b, sr: real; begin clrscr; writeln ('vvedite chislo a=') ; readln (a) ; writeln ('vvedite chislo b=') ; readln (b) ; sr: = ((a+a+a) * (b+b+b)) / 2;
Ответы (1)
Что не так? (процедура обязательна) procedure random (k:integer) ; var a:array[1 ... 100] of integer; var l:integer; begin for l:=1 to k do begin a[l]:=random (100) ; writeln (a[l]) ; end; end; var v:integer; begin write ('Сколько будет чисел?
Ответы (2)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Var a, b, x: real; begin write ('Vvedite koaficient a, b"') ; readln (a, b) ; if a0 then begin x: = - b/a; writeln ('Koren yravnenia x=', x:9:3) ; end else if b0 then writeln ('Korney net') ; else writeln ('x - luboe chislo') ; end.
Ответы (1)
Program z17; const n = 60; var c: array [1 ... n] of integer; k, i:integer; Begin randomize; k:=0; for i:=1 to n do c: = random (21) - 10; if i mod 4 = 0 then if c=0 then k:=k+c[i]; end; end; end; writeln (k) ; end.
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа
Главная » Информатика » 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) ;
Регистрация Забыл пароль