Подсчитать общее количество чисел, меньших заданного A

@blizzard-95 · Регистрация: 26.10.2013

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

подсчитать общее кол-во чисел, меньших заданного A, и чисел, больших заданного B среди элементов, находящихся ниже побочной диагонали.

@CodeR · 14.11.2013, 13:10

Pascal

Const nmax=20;
Var M:array[1..nmax,1..nmax] of integer;
    a,b,i,j,n,k:integer;
Begin 
    write('Размерность матрицы n<=',nmax,':');readln(n);
    For i:=1 to n do
    Begin
      For j:=1 to n do
      Begin
        M[i,j]:=random(31)-15;
        write(M[i,j]:4);
      End;
      writeln;
    End;
    write('A,B: ');readln(a,b);
    For i:=2 to n do
     For j:=n-i+2 to n do
      if (M[i,j]<A)and(M[i,j]>B) then inc(k);
    writeln('Общее число таких элементов = ',k);
    readln;
End.

@blizzard-95 0 / 0 / 0 Регистрация: 26.10.2013 Сообщений: 4
		1
	Подсчитать общее количество чисел, меньших заданного A 14.11.2013, 09:37. Показов 1310. Ответов 1 Метки нет (Все метки) подсчитать общее кол-во чисел, меньших заданного A, и чисел, больших заданного B среди элементов, находящихся ниже побочной диагонали. 0

	14.11.2013, 13:10

Подсчитать общее количество чисел, меньших заданного A

Решение