Паскаль авс.net . дано одномерный массив длиной n. "сжать "его , изъяв все отрицательные элементы.

126

389

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

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

Ананасик20031

Информатика

4,6(79 оценок)

// pascalabc.net 3.2, сборка 1389 от 01.03.2017 // внимание! если программа не работает, обновите версию! begin var a: =readarrinteger('вводите',readinteger('n=')); a: =a.where(x-> x> =0).toarray; a.println end. пример n= 5 вводите 3 -2 0 -1 5 8 3 0 5 то же, в терминах pascal abc ("по-школьному") const k=50; var n,i,m: integer; a,t: array[1..k] of integer; begin write('n='); read(n); write('вводите: '); for i: =1 to n do read(a[i]); m: =0; for i: =1 to n do if a[i]> =0 then begin m: =m+1; t[m]: =a[i] end; n: =m; for i: =1 to n do begin a[i]: =t[i]; write(a[i],' ') end; writeln end. думаю, есть о чем подумать: почему в школе учат писать длинно и сложно?

jokeaaaaff

Информатика

4,6(33 оценок)

На этот раз вроде бы и не торопился, все просмотрел (но наверняка, как всегда что-нибудь и кажется мне, что "школьное" решение уважаемого эникея не удовлетворяет поставленной (боюсь, что опять придется извиняться, но все же рискну). из массива не удалены все отрицательные элементы. их не видно, потому что распечатывается не весь массив. на первом скане видно, что при вводе массива (-1,-2,3,4,-5) элементы 4 и -5 остались на своих местах, просто они не выводятся на печать. вот поэтому я считаю, что это решение некорректно, поставленная не выполнена. свой вариант решения привожу на втором скане.

alianavladova

Информатика

4,6(88 оценок)

1927 год — в Массачусетском

Объяснение:

Проверенно

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

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

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

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

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

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

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

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

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

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