Задать вопрос
ИнформатикаИнформатика
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)
Помогите с ответом
Помогите решить - теплоход за два дня был в пути 12 часов. В первый день он прошел 256 км., а во второй - 128 км. Сколько часов теплоход провел в пути в каждый из этих дней, если он двигался с одинаковой скоростью?
Нет ответа
на каждой из вещей - куртке; пальтои шубе-пришито 3; 4 6 пуговиц на пальто4 пуговицы на куртке пуговиц больше чем на пальто сколько пуговиц на куртке и сколько на шубе?
Нет ответа
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
Ребят, как определять валентность?!
Нет ответа
Главная » Информатика » 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) ;
Регистрация Забыл пароль