Регистрация Спросить otvet5GPT
katiaj07102004
04.05.2022 15:03
Информатика
Есть ответ 👍

Исправить программу. она должна вычислять среднее арифметическое всех чисел в массиве меньших 50. вот программа: program zadacha; uses crt; var a: array[1..1000] of integer; c,i,n,s : integer; s1: real; begin; clrscr; writeln("введите размерность массива); readln(n); writeln('введите массив'); for i: =1 to n do begin a[i]: =random(100); if a[i]< 50 then begin inc(c); s: =s+a[i]; end; s: =s+a[i]; s1: =s/n; writeln('массив a: '); for i: =1 to n do write(a[i]: 4); writeln; writeln('среднее арифметическое равно=',s1); end; end.

208
381
Посмотреть ответы 3

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

Nurzhan2207
Nurzhan2207
4,4(92 оценок)
Ошибки: 1) writeln("введите размерность массива); - здесь опечатка (пропущены кавычки), должно быть writeln('введите размерность массива'); 2) writeln('введите массив'); - пользователь не вводит массив, здесь надо написать writeln('создаём '); 3) перед циклом нужно определить начальные значения переменных с и s c: =0; s: =0; 4) у первого цикла есть begin, но нет end 5) s: =s+a[i]; эта команда повторяется дважды - второй раз (после if) не нужен 6) лишний end; (предпоследняя строка программы) и ещё не ошибки, а два совета: 1) пользуйся отступами, тогда лучше видно структуру программы. когда все команды идут подряд в одной строке, легко запутаться. 2) при выводе среднего арифметического используй формат вывода    s1: 0: 2  тогда результат будет округлён до двух знаков после запятой, и не будет таких монстров вроде 16.65432468734246873435 исправленная программа: program zadacha; uses crt; var     a: array[1..1000] of integer;     c,i,n,s : integer;     s1: real; begin;     clrscr;     writeln('введите размерность массива');     readln(n);     writeln('создаём ');     c: =0; s: =0;     for i: =1 to n do           begin                 a[i]: =random(100);                 if a[i]< 50 then                       begin                             inc(c);                             s: =s+a[i];                       end;           end;     s1: =s/n;     writeln('массив a: ');     for i: =1 to n do write(a[i]: 4);     writeln;     writeln('среднее арифметическое равно=',s1: 0: 2);   end.
helloiSashA
helloiSashA
4,4(57 оценок)
Var      a: array[1..1000] of integer;   c,i,n,s : integer;   s1: real; begin;   readln(n);   for i: =1 to n do begin     a[i]: =random(100);     if a[i]< 50 then begin       inc(c);       s: =s+a[i];     end;   end;   s1: = s/c;   for i: =1 to n do write(a[i]: 4);   writeln;   writeln(s1); end.исправила, все работает, только добовьте ваш модуль crt обратно и поясняющие writeln'ы
ViktoriaTo
ViktoriaTo
4,5(18 оценок)
Читай по украинским буквам, начиная со второй через одну, т.е. в каждом слове бери буквы только на четных местах    : )) птицю пiзнати по пiр'ю, а людину по мовi. 

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS