марго419

28.05.2023 17:14

Информатика

Есть ответ 👍

Задать два целочисленных массива одинакового размера (не более 21 элементов).вывести исходные массивы на экран. сформировать новый массив , явл. целой частью от деления первого массива на второй . вычислить кол-во нечетных элементов каждого массива(я вообще не понимаю этот чертов паскаль, выручайте)

186

395

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

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

msnyamkina

Информатика

4,8(12 оценок)

Pascalabc.net 3.4.2, сборка 1843 от 24.10.2018 внимание! если программа не работает, обновите версию!

begin

var n : = readinteger('n=');

var a : = arrrandom(n, -99, 99);

a.println;

var b : = seqrandom(n, -10, 10).select(t -> t = 0 ? 1 : t).toarray;

b.println;

var c : = a.zip(b, (p, q)-> p div q).toarray;

c.println;

print('нечетных элементов: ');

a.where(t -> t.isodd).count.print;

b.where(t -> t.isodd).count.print;

c.where(t -> t.isodd).count.println;

end.

n= 13 72 94 79 3 15 -82 72 -72 14 -79 23 -48 26 -6 9 3 10 -2 10 -3 -7 5 -4 -6 7 -1 -12 10 26 0 -7 -8 -24 10 2 19 -3 -6 -26 нечетных элементов: 5 7 3

влада415

Информатика

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

var a,b,c: array [1..21] of integer;

i,n,ka,kb,kc: integer;

begin

write ('введите количество элементов массива (не более 21 элементов): ');

readln (n);

for i: =1 to n do

begin

a[i]: =random (199)-99;

b[i]: =random (21)-10;

c[i]: =a[i] div b[i];

if a[i] mod 2 < > 0 then ka: =ka+1;

if b[i] mod 2 < > 0 then kb: =kb+1;

if c[i] mod 2 < > 0 then kc: =kc+1

end;

write ('1-й массив: ');

for i: =1 to n do write(a[i]: 3,' ');

writeln;

write ('2-й массив: ');

for i: =1 to n do write(b[i]: 3,' ');

writeln;

write ('3-й массив: ');

for i: =1 to n do write(c[i]: 3,' ');

writeln;

write ('количество нечётных элементов в 1-м массиве: ',ka,'; во 2-м массиве: ',kb,'; в 3-м массиве: ',kc)

end.

lenaldld

Информатика

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

Итог работы программы: 7

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

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

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

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

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

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

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

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

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

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