В каждой строке заданной прямоугольной матрицы определить число четных элементов

@bnR07 · Регистрация: 02.12.2011

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

Kodzaev · 09.10.2012, 21:33

Pascal

Var
  x: Array[1..10,1..10] of Integer;
  i,j,n,m,k: Integer;
BEGIN
Repeat
 Writeln('Введите размер матрицы (n<>m): ');
 Readln(n,m);
until n<>m;
For i:=1 to n do
begin
  For j:=1 to m do
  begin
    x[i,j]:=Random(50);
    Write(x[i,j]:4);
  end;
  Writeln
end;
For i:=1 to n do
begin
  For j:=1 to m do
  If x[i,j] mod 2=0 Then Inc(k);
  Writeln(i,'-ая строка: ',k);
  k:=0;
end;
Readln
END.

@bnR07 1 / 1 / 1 Регистрация: 02.12.2011 Сообщений: 39
		1
	В каждой строке заданной прямоугольной матрицы определить число четных элементов 09.10.2012, 21:26. Показов 1253. Ответов 1 Метки нет (Все метки) В каждой строке заданной прямоугольной матрицы определить число четных элементов 0

	09.10.2012, 21:33

В каждой строке заданной прямоугольной матрицы определить число четных элементов

Решение