Помогите пожалуйста! найти количество положительных и количество отрицательных элементов матрицы Z(9,6) срочно очень надо программирование!!!!!!!!!!! помогите!
Ответы
Ответ дал:
0
// PascalABC.NET 3.2, сборка 1367 от 20.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив 9x6 ***');
var a:=MatrRandom(9,6,-50,50); a.Println(4);
Writeln(4*a.ColCount*'-');
var kn:=a.Rows.SelectMany(x->x).Where(x->x<0).Count;
var kp:=a.Rows.SelectMany(x->x).Where(x->x>0).Count;
Writeln(kn,' отрицательных, ',kp,' положительных')
end.
Пример
*** Исходный массив 9x6 ***
-47 37 23 -34 -33 0
-17 -5 13 -9 0 -46
-41 31 41 -30 -24 49
39 50 13 4 19 14
-17 -12 -24 22 -9 -44
-27 17 -44 -35 -4 32
26 -5 49 -7 -28 -25
-15 -9 13 25 -26 -29
-40 -24 -4 50 33 -45
------------------------
31 отрицательных, 21 положительных
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('*** Исходный массив 9x6 ***');
var a:=MatrRandom(9,6,-50,50); a.Println(4);
Writeln(4*a.ColCount*'-');
var kn:=a.Rows.SelectMany(x->x).Where(x->x<0).Count;
var kp:=a.Rows.SelectMany(x->x).Where(x->x>0).Count;
Writeln(kn,' отрицательных, ',kp,' положительных')
end.
Пример
*** Исходный массив 9x6 ***
-47 37 23 -34 -33 0
-17 -5 13 -9 0 -46
-41 31 41 -30 -24 49
39 50 13 4 19 14
-17 -12 -24 22 -9 -44
-27 17 -44 -35 -4 32
26 -5 49 -7 -28 -25
-15 -9 13 25 -26 -29
-40 -24 -4 50 33 -45
------------------------
31 отрицательных, 21 положительных
Ответ дал:
0
Надо не в паскале а выполнить на языке VBA (Visual Basic For Application)
Ответ дал:
0
Да? А где об этом написано в Вашем вопросе?
Ответ дал:
0
Если Вы не пишете в вопросе язык, имею право хоть по-китайски писать алгоритм!
Ответ дал:
0
Тот, кто просит программу и не указывает языка программирования - просто не ценит чужой труд.
Ответ дал:
0
Надо на VBA - делайте вопрос новый и пишите в условии все подробно. То ли матрицу с листа вводить, то ли заполнять случайными числами...
Вас заинтересует
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад