Задать вопрос
ИнформатикаИнформатика
24 сентября, 22:54

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

+1
Ответы (2)
  1. 25 сентября, 02:15
    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. 25 сентября, 02:34
    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)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Помогите с ответом
2, 4 диметилгексен3 структурная формула улеродный скелет цикл
Нет ответа
Какая масса алюминия прореагирует с хлоридной кислотой, если при этом выделится пять моль водорода?
Нет ответа
вывести формулу расчёта для решения задач типа: сколько граммов соли нужно добавить к А г а %-го раствора этой соли для получения в %-го раствора?
Нет ответа
Уравнения реакций взаимодействия пропена с водородом, бромом, бромоводородом
Нет ответа
При сгорании в хлоре 224 г порошка некоторого металла образовалось 650 г хлорида в котором данный метал трехвалентен. о каком металле идет речь
Нет ответа
Главная » Информатика » 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) ;
Регистрация Забыл пароль