Дан массив а(m), меньше или равно 20. ввести на печать сумму элементов массива, если она превосходит число 50, в противном случае вывести в печать исходный массив. написать программу , только прошу с интернета не брать, там программы не работают, свою программу я написала, но что-то выдаёт не так, , . program mass5v; uses crt; const nmax=20; type mas=array[1..nmax] of integer; var a: mas; i,m,s: integer; am, con: text; begin clrscr; assign(am,'am.txt'); assign(kon,'kon.txt'); reset(am); rewrite(kon); write('введите размер массива m='); readln(m); s: =0; for i: =1 to m do begin read(am, a[i]); s: =s+a[i]; end; writeln; writeln(kon); if s< =50 then begin writeln('сумма элементов менее 50, вывод исходного массива); for i: =1 to m do begin write('a[',i,']=',a[i],' '); write(kon,'a[',i,']=',a[i],' '); end; end else writeln('сумма элементов массива более 50 и равна: s=',s); close(am); close(kon); readkey; end.

173

447

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

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

laskovetsigor2

Информатика

4,7(99 оценок)

Uses crt; const nmax = 20; var a: array[1..nmax] of integer; i, m, s: integer; am, kon: text; begin clrscr; assign(am, 'am.txt'); {раскоментировать для записи массива в файл} {rewrite(am); m : = random(nmax - 5) + 5; for i : = 1 to m do writeln(am, random(20)); close(am); } {считывание данных из файла} reset(am); s : = 0; m : = 0; while not eof(am) do begin m : = m + 1; readln(am, a[m]); s : = s + a[m]; end; close(am); assign(kon, 'kon.txt'); rewrite(kon); if s > 50 then writeln('сумма элементов массива более 50 и равна: s=', s) else begin writeln('сумма элементов менее 50, вывод исходного массива'); for i : = 1 to m do begin writeln('a[', i, ']=', a[i], ' '); writeln(kon, 'a[', i, ']=', a[i], ' '); end; end; close(kon); readkey; end.

Дмыч

Информатика

4,7(17 оценок)

1)получение 2)запись 3)передача

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

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

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

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

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

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

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

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

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

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