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

[beda]

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

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

 

[interacia]

11 б)
Поскольку язык неуказан то в общем виде
Может быть так
Алгоритм.
1.1 объявляете двухмерный массив, любого типа.
1,2 объявляете счетчики циклов 2 шт, целого типа
1,3 переменная сумматор, целого типа
1,4 объявляете переменные хранящие количества строк и количества столбцов в массиве, целого типа.

2,1 Вводите значение переменной количество строк.
2,2 Вводите значение переменной количество столбцов.

3,1. организуете вложенный цикл типа для заполнения массива
for счетчик приравниваете к 1 или 0 в зависимости от начала массива , указываете до какого значения будет меняться счетчик (зависит от размера матрицы количество строк рекомендуется), ( если язык С/С++ или си ориентированный то дополнительно нужно указать приращение счетчика обычно это 1)
for то же только второй пункт будет количество столбцов.
3,2 В теле (тело цикла может обозначаться как {}, begin end; и т.д в зависимости от языка ) вложенного цикла
Задаете значение каждому элементу путем либо ввода с клавиатуры, либо путем вызова функции генерирующей псевдослучайное значение (random() в некоторых языках).

4. переменной сумматору присваиваете значение 0

5,1 еще раз организуете вложенный цикл
5,2 В теле второго цикла устраиваете проверку значения элемента массива на принадлежность к положительным числам.
Для этого можно использовать if (условие отбора (текущий элемент массива >0)) в случае возврата значения истина
5,3 увеличиваем значение переменной сумматор на 1. Это можно сделать конструкцией вида
сумматор знак присваивания сумматор + 1. Альтернативный способ использование операторов инкремента (++, inc() ).
После выхода из циклов остается вывести значение сумматора может в файл или на монитор на ваше усмотрение.

 

[beda]

это Паскаль, interacia помоги на паскале написать

 

[beda]

Помогите пожалуста сделать в паскале

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

 

[Vladimir_S]

Помогите пожалуста сделать в паскале

Да, beda с Вами... Удивительно, до чего наши люди упорны, целеустремленны и настойчивы в стремлении бездельничать! Ведь за то время, пока Вы по форумам шаритесь, десять раз можно было разобраться с азами прграммирования и написать листинги этих дебильно-ясельных задачек для умственно-отсталых. Но нет - делайте за меня, и всё тут!
Ладно, вот Вам задачки на сумму и произведение "в одном флаконе".

Var
 x,S,P:real;
 N,i:Word;
Begin
 Write('x= ');
 Readln(x);
 Write('N= ');
 Readln(N);
 S:=0;
 P:=1;
 For i:=1 to N do
  begin
   S:=S+Sqr(x-1.0*i);
   P:=P*(x+1.0*i)/i/i;
  end;
 Writeln('S= ',S:0:3,'    P= ',P:0:18);
 Readln
End.

И про матрицу:

Const
 M=16;
 N=18;
Var
 A:Array[1..M,1..N] of Integer;
 i,j:Byte;
 Npos:Word;
Begin
 Npos:=0;
 Randomize;
 For i:=1 to M do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=60-Random(100);
     write(A[i,j]:4);
     if A[i,j]>0 then Inc(Npos);
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Number of positive elements is ',Npos);
 Readln
End.

 

[beda]

спасибо Владимир