ls0xhand

24.06.2022 14:36

Информатика

Есть ответ 👍

Дан целочисленный массив из 23 элементов, заданных случайным образом. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания, а также их количество К.

108

287

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

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

fgdfc1

Информатика

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

Объяснение:

program odd;

var

arr1, arr2: array[1..23] of integer;

i, cnt, tmp, buffer: integer;

begin

writeln('исходный массив:');

for i := 1 to 23 do

begin

arr1[i] := random(100);

write(arr1[i], ' ');

end;

writeln();

cnt := 0; //считем сколько нечетных, переносим в другой массив

for i := 1 to 23 do

begin

if arr1[i] mod 2 <> 0 then

begin

cnt := cnt + 1;

arr2[cnt] := arr1[i];

end;

//сортируем arr2 пузырьком

for i := (cnt - 1) downto 1 do

begin

tmp := i;

while ((tmp < cnt) and (arr2[tmp] > arr2[tmp + 1])) do

begin

//swap

buffer := arr2[tmp];

arr2[tmp] := arr2[tmp + 1];

arr2[tmp + 1] := buffer;

tmp := tmp + 1;

end;

Writeln('отсортированные нечетные:');

for i := 1 to cnt do

write(arr2[i], ' ');

writeln();

writeln('всего: ', cnt);

end.

llll41

Информатика

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

--- PascalABC.NET 3.6.2 ---

begin

var A := ArrRandom(23, -99,99);

A.Where(p -> p mod 2 <> 0).Sorted.Println.Count.Println;

end.

Да, это полноценная работающая программа, решающая вашу задачу.

eviilevii123

Информатика

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

Var a,b,c: integer; begin writeln('введите три числа'); readln(a,b,c); if (a> b) and (a> c) then writeln('больше число ==> ',a); if (b> a) and (b> c) then writeln('больше число ==> ',b); if (c> b) and (c> a) then writeln('больше число ==> ',c); end.

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

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

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

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

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

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

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

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

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

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