Обработка матриц

@sharm · Регистрация: 28.11.2010

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

Для каждого столбца матрицы определить число элементов, меньших заданного значения.

@Sergiuz · 29.11.2010, 10:05

sharm,

Delphi

var i,j,c,M: integer;
     a: array [1..10,1..10] of integer;
begin
....
 for j:=0 to 10 do 
 begin
    c:=0;
    for i:=0 to 10 do 
       if a[i,j]<M then inc(c);
    ShowMessage ('В столбце  № '+ inttostr(j)+' к-во эллементов меньще заданого составляет ' + inttostr(c));
 end;
end;

Что то типа такого

@sharm 0 / 0 / 0 Регистрация: 28.11.2010 Сообщений: 3
		1
	Обработка матриц 28.11.2010, 12:49. Показов 1290. Ответов 1 Метки нет (Все метки) Для каждого столбца матрицы определить число элементов, меньших заданного значения. 0

	29.11.2010, 10:05

Обработка матриц

Решение