Question

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

Answer 1

Var
b: array[1..8,1..8] of integer;
i, j, k:integer;
begin
for i:=1 to 8 do
for j:=1 to 8 do
readln(b[i,j]); {заполнение матрицы}
k:=0;
for i:=1 to 8 do
for j:=1 to 8 do
if b[i,j]>0 then inc(k);
writeln(k,' чисел');
end.

Answer 2

Для вычисления количества положительных элементов в матрице B размером 8x8 на языке Паскаль, можно использовать следующую программу:

program CountPositiveElements;
const
  N = 8;
var
  B: array[1..N, 1..N] of Integer;
  i, j, count: Integer;
begin
  count := 0;
  
  // Здесь необходимо заполнить матрицу B значениями
  
  // Проходим по каждому элементу матрицы
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      // Проверяем, является ли элемент положительным
      if B[i, j] > 0 then
        count := count + 1; // Увеличиваем счетчик положительных элементов
    end;
  end;
  
  // Выводим результат
  writeln('Количество положительных элементов в матрице B: ', count);
end.

В этой программе мы используем двойной цикл `for` для прохода по каждому элементу матрицы B. Если элемент больше нуля, то увеличиваем счетчик `count` на единицу. В конце программы выводим результат - количество положительных элементов в матрице B.

Примечание: В программе необходимо заполнить матрицу B значениями перед циклами, чтобы программа могла правильно подсчитать количество положительных элементов.