в паскале нужно это все сделать СРОЧНО!!!
1. В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) сумму отрицательных элементов массива;
2) произведение элементов массива, расположенных между максимальным и минимальными элементами.
Упорядочить элементы массива по возрастанию.
2. Дана целочисленная прямоугольная матрица. Определить:
1) количество строк, не содержащих ни одного нулевого элемента;
2) максимальное из чисел, встречающихся в заданной матрице более одного раза.
Ответы
Ответ дал:
0
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
Writeln('1: ',a.Where(t->t<0).Sum);
a.Sort; // по возрастанию
a.Println;
Writeln('2: ',a[a.IndexMin+1:a.IndexMax].Aggregate(1.0,(x,y)->x*y))
end.
Пример
n= 13
-3 6 -2.3 -7.5 -1.6 8.4 -4.7 -2.8 9.9 -3.3 -0.7 0.9 -8.8
1: -34.7
-8.8 -7.5 -4.7 -3.3 -3 -2.8 -2.3 -1.6 -0.7 0.9 6 8.4 9.9
2: 114175.0608768
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-20,20);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('1: ',a.Rows.Where(r->r.All(t->t<>0)).Count);
Writeln('2: ',a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count))
.Where(t->t[1]>1).MaxBy(t->t[0])[0])
end.
Пример
Количество строк и столбцов в матрице: 7 20
*** Исходная матрица ***
-9 9 16 -5 18 -1 -12 -13 -19 -12 8 -19 -18 20 -16 9 -7 17 -19 1
8 2 18 -7 -16 3 15 19 -11 -10 -9 -4 16 -4 18 10 15 10 -17 6
-19 -15 -14 15 11 -13 3 0 1 -6 -17 -17 -14 -4 -2 10 11 3 -9 -6
5 -11 18 11 18 -8 -14 6 -18 -5 15 4 13 -5 -1 3 -4 -18 2 18
-20 -5 -2 16 -13 -13 -11 -1 19 -12 19 -9 -1 10 -19 13 -13 -5 18 -1
-19 18 -2 -14 -1 0 -10 12 17 16 -7 9 -20 -7 -6 -10 12 -18 4 10
-18 7 7 15 -4 3 -15 -17 -7 7 -5 -20 -16 -17 17 -17 18 -8 -3 7
--------------------------------------------------------------------------------
1: 5
2: 19
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
a.Println;
Writeln('1: ',a.Where(t->t<0).Sum);
a.Sort; // по возрастанию
a.Println;
Writeln('2: ',a[a.IndexMin+1:a.IndexMax].Aggregate(1.0,(x,y)->x*y))
end.
Пример
n= 13
-3 6 -2.3 -7.5 -1.6 8.4 -4.7 -2.8 9.9 -3.3 -0.7 0.9 -8.8
1: -34.7
-8.8 -7.5 -4.7 -3.3 -3 -2.8 -2.3 -1.6 -0.7 0.9 6 8.4 9.9
2: 114175.0608768
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(m,n,-20,20);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('1: ',a.Rows.Where(r->r.All(t->t<>0)).Count);
Writeln('2: ',a.ElementsByRow.GroupBy(t->t).Select(t->(t.Key,t.Count))
.Where(t->t[1]>1).MaxBy(t->t[0])[0])
end.
Пример
Количество строк и столбцов в матрице: 7 20
*** Исходная матрица ***
-9 9 16 -5 18 -1 -12 -13 -19 -12 8 -19 -18 20 -16 9 -7 17 -19 1
8 2 18 -7 -16 3 15 19 -11 -10 -9 -4 16 -4 18 10 15 10 -17 6
-19 -15 -14 15 11 -13 3 0 1 -6 -17 -17 -14 -4 -2 10 11 3 -9 -6
5 -11 18 11 18 -8 -14 6 -18 -5 15 4 13 -5 -1 3 -4 -18 2 18
-20 -5 -2 16 -13 -13 -11 -1 19 -12 19 -9 -1 10 -19 13 -13 -5 18 -1
-19 18 -2 -14 -1 0 -10 12 17 16 -7 9 -20 -7 -6 -10 12 -18 4 10
-18 7 7 15 -4 3 -15 -17 -7 7 -5 -20 -16 -17 17 -17 18 -8 -3 7
--------------------------------------------------------------------------------
1: 5
2: 19
Приложения:
![](https://st.uroker.com/files/728/7281ceec07220b0eca5abdc959dd97b7.jpg)
![](https://st.uroker.com/files/749/749b470281688a831ce026d599575078.jpg)
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад