Жду вашего ответа. Срочно осталось 2 часа это всё в паскалеЗАДАЧА 1. Напишите...

Question

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

Comments

боби помоги плиз!

Answer 1

// 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.

---

Comments

Они не связаны

---

благодарю

---

пожалуйста

---

боби хелп ми вопрос в профиле

---

Я не шарюсь по профилям.

---

плак плак

---

а ссылку сюда никак)))

---

вот

---

https://znanija.com/task/36022784

---

Это коды в ТурбоПаскаль. Я на такой древности писать программы не хочу и Вам не советую.