Задать вопрос
ИнформатикаИнформатика
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)
  1. 17 декабря, 21:18
    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)
Нужен ответ
Из данных слов Выпиши имена существительные сильный зима, найти, дерево, рисовать, красивый, воробей, река, ручной, решать, подснежник, показаться.
Нет ответа
В санатории привезли апельсины мандарины и лимоны апельсины составляет пять четырнадцатых всех фруктов мандарины восемь 21-й, а лимоны остальные 99 кг сколько килограммов фруктов привезли в санаторий
Нет ответа
Расположите числа 5,28; - 1,634; - 1,34; - 1, (3); 2,3 (4) и 2, (34) в порядке убывания
Нет ответа
сравнить природные условия финикии древнего египта и индии
Нет ответа
Расстояние между двумя пунктами 40 км. Из одного из них в другой одновременно въезжают автобус и велосипедист. Скорость автобуса 50 км в час, велосипедиста 10 км в час.
Нет ответа
Главная » Информатика » 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);
Регистрация Забыл пароль