Разработка циклической программы с известным количеством повторений

@Виталий965 · Регистрация: 14.12.2012

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

Определить количество положительных элементов матрицы.

@cattyfil · 24.12.2012, 18:22

Можно подробнее условие? Как задается матрица, какова ее размерность и т.д.
Если размерность вводить с клавиатуры, матрица заполняется рандомом, то вот

Delphi

  var
    i,j,n,m,q:Integer;
    a:array[1..100,1..100] of Integer;
begin
  Randomize;
  Writeln('vvedite kol-vo strok');
  Readln(n);
   Writeln('vvedite kol-vo stolbcov');
  Readln(m);
  q:=0;
    for i:=1 to n do begin
    for j:=1 to m do
    a[i,j]:=Random(50-25);
  end;
  for i:=1 to n do begin
    for j:=1 to m do
    if a[i,j]>0 then Inc(q);
  end;
  Writeln('kol-vo elementov',q);
  Readln;
end.

@Виталий965 0 / 0 / 0 Регистрация: 14.12.2012 Сообщений: 4
		1
	Разработка циклической программы с известным количеством повторений 24.12.2012, 12:56. Показов 1026. Ответов 1 Метки нет (Все метки) Определить количество положительных элементов матрицы. 0

	24.12.2012, 18:22

Опции темы