3. в массиве из 10 целых чисел определить, сколько значений превышает число 3. собственно сама программа const n=10; var a: array[1..n] of integer; kol,i: integer; begin kol: =0; for i: =1 to n do begin readln(a[i]); if a[i]> 3 then kol: =kol+1; end; writeln; writeln('больших,чем 3=',kol); end. и далее при запуске программы выдает ошибку 201 не подскажите в чем ошибка?

109

306

Посмотреть ответы 2

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

Heeellllpppp

Информатика

4,4(92 оценок)

//забыл точку с запятой у begin в цикле const n=10; var ar: array[1..n] of integer; kol,i: integer; begin; kol: =0; for i: =1 to n do begin; readln(ar[i]); if ar[i]> 3 then kol: =kol+1; end; writeln; writeln('больших,чем 3=',kol); end.{по крайней мере, у меня данная программа компилируется без проблем. никакого выхода за границы массива( это и есть, вроде бы, ошибка 201)}

Proyd1

Информатика

4,4(71 оценок)

две по порядку)

program example1; var a,b,c,d,i: integer;

begin for i: =1000 to 9999 do begin d: = i mod 10; //4 c: = i div 10 mod 10; //3 b: = i div 100 mod 10; //2 a: = i div 1000; //1 if ((a=d) and (b=c)) then write (i: 5); end; end.

program example2;

var a,b,c,d,i: integer; h,j,k,l: boolean; begin write ('введите четырехзначное число '); readln(i); d: = i mod 10; //4 c: = i div 10 mod 10; //3 b: = i div 100 mod 10; //2 a: = i div 1000; //1 if (a< > 0) and (a< > 5) then write(a) else write(''); if (b< > 0) and (b< > 5) then write(b) else write(''); if (c< > 0) and (c< > 5) then write(c) else write(''); if (d< > 0) and (d< > 5) then write(d) else write(''); end.

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

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

Задай свой вопрос

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

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

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

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

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

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

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