Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму положительных элементов - Pascal

Узнай цену своей работы

Формулировка задачи:

Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму положительных элементов данной матрицы. Пожалуйста, помогите решить

Решение задачи: «Дана вещественная матрица M(4,3). Подсчитать число отрицательных и сумму положительных элементов»

textual
Листинг программы
const
    N = 4;
    M = 3;
var
    ar: Array[1..N, 1..M] Of Real;
    i: 1..N;
    j: 1..M;
    count: 0..N*M;
    sum: Real;
begin
    Randomize;
    WriteLn('M:');
    sum := 0;
    count := 0;
    for i := 1 to N do
    begin
        for j := 1 to M do
        begin
            ar[i, j] := Random*198 - 99;
            Write(ar[i, j]:7:2);
            if (ar[i, j] < 0)
            then
                Inc(count)
            else
                sum := sum + ar[i, j];
        end;
        WriteLn;
    end;
    WriteLn('Количество отрицательных: ', count);
    WriteLn('Сумма положительных: ', sum:0:2);
end.

Объяснение кода листинга программы

  1. Объявляются константы N и M с значениями 4 и 3 соответственно.
  2. Объявляется переменная ar - двумерный массив размерности N на M для хранения вещественных чисел.
  3. Объявляются переменные: i - для итерации по строкам (от 1 до N), j - для итерации по столбцам (от 1 до M), count - для подсчета отрицательных элементов (от 0 до N*M), sum - для хранения суммы положительных элементов.
  4. Инициализируется генератор случайных чисел.
  5. Выводится текст M:.
  6. Обнуляются переменные sum и count.
  7. Начинается цикл по строкам (от 1 до N).
  8. В каждой строке начинается цикл по столбцам (от 1 до M).
  9. Генерируется случайное вещественное число и сохраняется в массиве ar с двумя знаками после запятой.
  10. Выводится значение элемента массива ar[i, j] с отступом в 7 символов и двумя знаками после запятой.
  11. Если значение элемента ar[i, j] меньше нуля, увеличивается значение переменной count на 1, иначе значение элемента добавляется к переменной sum.
  12. Завершается цикл по столбцам.
  13. Печатается перевод строки.
  14. Количество отрицательных элементов выводится на экран.
  15. Сумма положительных элементов выводится на экран с двумя знаками после запятой.

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы