Настёна30072003

28.09.2021 18:35

Информатика

Есть ответ 👍

Жду вашего ответа осталось 2 часа

это всё в паскале

ЗАДАЧА 1. Напишите программу, которая формирует два одномерных массива из 100 случайных двузначных чисел каждый, находит суммы этих массивов и показывает их, и даёт ответ на во сумма какого массива наибольшая.

ЗАДАЧА 2. Написать программу, которая формирует три одномерных массива из 1000 случайных однозначных чисел каждый, находит суммы этих массивов и выводит их в порядке возрастания (наименьшая сумма вначале, наибольшая -вконце).

ЗАДАЧА 3. Написать программу, которая в одномерном масси-ве из 50 элементов находит все элементы больше значения 30 и считает их количество и сумму.

173

407

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

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

bekker222

Информатика

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

// PascalABC.NET

begin

// 1

var s11 := SeqRandom(100, 10, 99).Sum;

var s12 := ArrRandom(100, 10, 99).Sum;

case Sign(s11 - s12) of

-1: Println('Сумма второго массива больше');

0: Println('Суммы равны');

else

Println('Сумма первого массива больше')

end;

// 2

var s21 := SeqRandom(1000, -9, 9).Sum;

var s22 := ArrRandom(1000, -9, 9).Sum;

var s23 := ArrRandom(1000, -9, 9).Sum;

if s21 > s22 then

Swap(s21, s22);

if s22 > s23 then

begin

Swap(s22, s23);

if s21 > s22 then

Swap(s21, s22)

end;

Println(s21, s22, s23);

// 3

var a := ArrRandom(50, -99, 99);

a.Println;

var s31 := a.Where(p -> p > 30);

Print('Количество', s31.Count, ' сумма', s31.Sum)

end.

sergeyblack11

Информатика

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

x = 2^24

i = ln(x) = 24 бита = 3 байта

ответ : 3 байта

p.s. если понравилось решение не забудь отметить как лучшше. ; )

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

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

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

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

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

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

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

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

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

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