Дана матрица B(N, N), найти количество элементов, меньших 5

@olegin12 · Регистрация: 17.11.2012

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

Kodzaev · 20.01.2013, 21:17

Pascal

Var
  b: Array[1..10,1..10] of Integer;
  i,j,n,k: Byte;
BEGIN
Write('Введите размер матрицы: ');
Readln(n);
Randomize;
Writeln('Матрица:');
For i:=1 to n do
begin
  For j:=1 to n do
  begin
    b[i,j]:=Random(15);
    If b[i,j]<5 Then Inc(k);
    Write(b[i,j]:5);
  end;
  Writeln
end;
Writeln('Кол-во эл-тов < 5 = ',k);
END.

@olegin12 0 / 0 / 0 Регистрация: 17.11.2012 Сообщений: 28
		1
	Дана матрица B(N, N), найти количество элементов, меньших 5 20.01.2013, 20:52. Показов 1370. Ответов 1 Метки нет (Все метки) Дана матрица B(N, N), найти количество элементов, меньших 5 0

	20.01.2013, 21:17

Дана матрица B(N, N), найти количество элементов, меньших 5

Решение