Задать вопрос
ИнформатикаИнформатика
22 ноября, 10: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 исправте её так что бы работала.

+3
Ответы (1)
  1. 22 ноября, 11:21
    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.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Program Example2; var Rand: array[1 ... 20] of integer; I, X, NumberX:integer, beginRandomize; writeln ('Masiv slychainix chisel') for I:=1 ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=c*m; writeln ('s=', s); readln; end.
Ответы (1)
Что не так в программе, она должна узнать какое число больше? вот программа program primer; var a, b, с:integer; Begin readln (a, b, с); if a>b then writeln (a) else if b>c writeln (b) else if c>a writeln (c); end.
Ответы (1)
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...'); Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
Какие из приведенных описаний массивов являются правильными? 1) Var A: array [1 ... 20] of real; 2) Type Mas=array ['A' ... 'D']; Var A:Mas; 3) Type Город = (Киев, Москва, Сочи, Адлер); Var A:array[Город] of real; 4) Var MM:array [false ...
Ответы (1)
Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);
Ответы (1)
Нужен ответ
Найдите координаты точки, через которую проходят графики функций y=kx - 2k-3 при любых значениях параметра k
Нет ответа
Вычислите (3-2 5/9) : 1/12 = 2) (7/18+5/12-2/3) * 0,9 = 3) (1,35-4/15) * 3/13+2 5/12 = 4) 0,1: (2 1/15+1/3) =
Нет ответа
дан параллелограм АВСD. O-точка пересечения диагоналей. Найдите векторы OD-OC, 2BO + DA, CD+DB+BA
Нет ответа
Решите уравнение: Logx (2 х^2 - 3 х) = 1
Нет ответа
1/2 это ... 4 1/3 это ... (в десятичных дробях)
Нет ответа
Главная » Информатика » 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);
Регистрация Забыл пароль