Решить в паскале ! ! дан массив. сформировать три массива, включив в первый положительные чётные элементы массива, во второй - положительные нечётные, в третий - все остальные.

300

500

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

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

тогжан22

Информатика

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

Const n = 20; var a, p0, p1, pa: array[1..n] of integer; i, ip0, ip1, ipa: integer; begin write('введите ', n, ' элементов массива: '); for i : = 1 to n do read(a[i]); writeln; ip0 : = 0; ip1 : = 0; ipa : = 0; for i : = 1 to n do if a[i] > 0 then if (a[i] mod 2) = 0 then begin ip0 : = ip0 + 1; p0[ip0] : = a[i] end else begin ip1 : = ip1 + 1; p1[ip1] : = a[i] end else begin ipa : = ipa + 1; pa[ipa] : = a[i] end; write('положительные четные: '); for i : = 1 to ip0 do write(p0[i]: 4); writeln; write('положительные нечетные: '); for i : = 1 to ip1 do write(p1[i]: 4); writeln; write('остальные: '); for i : = 1 to ipa do write(pa[i]: 4); writeln end. тестовое решение: введите 20 элементов массива: 3 8 -5 -8 3 0 4 12 -13 42 0 8 6 24 15 -9 47 18 53 -30 положительные четные: 8 4 12 42 8 6 24 18 положительные нечетные: 3 3 15 47 53 остальные: -5 -8 0 -13 0 -9 -30

Serdechkiцветочек

Информатика

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

Var i,j,n: integer; s,a,t: string; begin write('введи текст: '); readln(s); n: =length(s); for i: =1 to n do begin a: =a+s[i]; if (s[i]=' ') or (i=n) then begin if i=n then a: =a+' '; for j: = length(a) downto 1 do t: =t+a[j]; a: =''; end end; writeln(t) end.

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

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

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

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

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

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

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

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

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

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