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