Найти количество строк матрицы, сумма модулей элементов которых больше 1

@Reclamation · Регистрация: 01.10.2012

Author24 — интернет-сервис помощи студентам

Дана квадратная матрица А порядка n. Найдите количество строк матрицы, сумма модулей элементов которых больше 1.

@CodeR · 05.11.2012, 09:14

Pascal

Var A:array[1..20,1..20] of integer;
    i,j,k,s,n:integer;
Begin
    write('Введите размерность: ');readln(n);
    For i:=1 to n do
    Begin
      s:=0;
      For j:=1 to n do
      Begin
        A[i,j]:=random(10)-5;
        write(A[i,j]:4);
        s:=s+abs(A[i,j]);
      End;
      if s>1 then inc(k);
      writeln;
    End;
    writeln('Строк сумма модулей элементов которых больше 1 = ',k);
End.

@Reclamation · 06.11.2012, 20:22 **[ТС]**

спасибо

@Reclamation 0 / 0 / 0 Регистрация: 01.10.2012 Сообщений: 11
		1
	Найти количество строк матрицы, сумма модулей элементов которых больше 1 04.11.2012, 21:22. Показов 1898. Ответов 2 Метки нет (Все метки) Дана квадратная матрица А порядка n. Найдите количество строк матрицы, сумма модулей элементов которых больше 1. 0

@Reclamation 0 / 0 / 0 Регистрация: 01.10.2012 Сообщений: 11
	06.11.2012, 20:22 [ТС]	3
	спасибо 0

Опции темы

Найти количество строк матрицы, сумма модулей элементов которых больше 1

Решение