Регистрация Спросить otvet5GPT
Maria9613
02.10.2020 16:13
Информатика
Есть ответ 👍

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

110
457
Посмотреть ответы 3

Ответы на вопрос:

Anhard23
Anhard23
4,5(95 оценок)
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. надеюсь на и лучший ответ.
sofizlatich
sofizlatich
4,4(90 оценок)
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- скобка лишняя, массив не был описан правильно и точка с запетой не стояла 
Хорошист992017
Хорошист992017
4,8(50 оценок)
210 кбайт = 1720320 бит 1720320/5880= 292.571429 секунд - время 292.571429*840= 245760 бит можно передать со скоростью 840 бит/с 1720320-245760=на 1474560 бит (собственно ответ)

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS