Определить к — количество особых элементов массива а - Pascal ABC

Формулировка задачи:

Вариант 5 1 Дана матрица A размером n*m. Определить к - количество особых элементов массива а, считая его элемент особым, если он больше суммы остальных элементов его столбца. 2. Пусть дана вещественная матрица размером n*m. Определите числа а1 ,а2 ... аn, равные соответственно суммам элементов строк 3 Пусть дона вещественная квадратная матрица порядко n .Получите целочисленную квадратную матрицу того же порядка, в которой элемент равен единице, если соответствующий ему элемент исходной матрицы больше элемента расположенного в его строке на главной диагонали, и равен нулю - в противном случае


textual

Код к задаче: «Определить к — количество особых элементов массива а - Pascal ABC»

for i := 1 to m do
begin
  for j := 1 to n do
    s := s + a[j, i];
  for j := 1 to n do
    if (a[j, i] > s - a[j, i]) then
      inc(k);
end;
writeln(k);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 3.800 из 5

Источник