Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 29.05.2019
Сообщений: 10
1

Найти характеристику каждого столбца матрицы.

20.06.2019, 02:36. Показов 1055. Ответов 1
Метки нет (Все метки)

Задана квадратная матрица A размером N x N (N<=10), состоящая из действительных элементов.
Найти характеристику каждого ее столбца (сумму модулей отрицательных нечетных элементов в каждом столбце).
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.06.2019, 02:36
Ответы с готовыми решениями:

Найти характеристику каждого столбца матрици (сумму модулей отрицательных нечетных элементов в каждом столбце)
Всех с наступающим :) Задана квадратная матрица A размером N x N (N&lt;=10), состоящая из...

Найти среднеарифметическое каждого столбца матрицы
дано натуральное число n действительной матрица размером mxn/ Найдите среднеарифметическое а)...

Массив: Определить суммы элементов каждого столбца левой половины и каждого четного столбца правой половины матрицы A
Матрица A (M кратно 4) разделена по вертикали на две половины. Определить сумму элементов каждого...

Найти сумму элементов каждого столбца матрицы
Доброго времени суток! Не могли бы вы помочь найти ошибку в программе . Условие задачи такое: дан...

1
Модератор
63381 / 47074 / 32446
Регистрация: 18.05.2008
Сообщений: 114,106
20.06.2019, 08:49 2
Лучший ответ Сообщение было отмечено RFNiks как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var a:array[1..10,1..10] of real;
    n,i,j:integer;
    s:real;
begin
repeat
write('Введите размер матрицы от 2 до 10 n=');
readln(n);
until n in [2..10];
randomize;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-9+18*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
writeln('Суммы модулей отрицательных элементов столбцов');
for j:=1 to n do
 begin
  s:=0;
  for i:=1 to n do
  if a[i,j]<0 then s:=s+abs(a[i,j]);
  writeln('Столбец',j:2,s:6:2);
 end;
 end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.06.2019, 08:49

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Найти количество положительных элементов каждого столбца матрицы
дан двухмерный массив размером m*n. найти кол-во положительных элем-ов каждого столбца массива. из...

Найти произведение ненулевых элементов каждого столбца матрицы
Разработать алгоритм, определяющий произведение ненулевых элементов каждого столбца матрицы...

Найти сумму отрицательных элементов каждого столбца матрицы.
Дана целочисленная матрица размера M х N. Найти сумму отрицательных элементов каждого столбца...

Найти сумму нечетных элементов каждого столбца матрицы
сформировать двумерный массив целых чисел, размерности n*m и найти сумму нечетных элементов каждого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.