Верно ли, что общий доход фирмы в сентябре превысил некоторое заданное число? - Turbo Pascal
Формулировка задачи:
Помогите решить задачу на Паскале, пожалуйста:
Фирма имеет 10 магазинов . Информация о доходе каждого магазина за каждый месяц года храниться в двумерном массиве (в первом столбце за январь, во втором за февраль и т.д.). Верно ли, что общий доход фирмы в сентябре превысил некоторое заданное число?
Решение задачи: «Верно ли, что общий доход фирмы в сентябре превысил некоторое заданное число?»
textual
Листинг программы
program pr; const n = 10; m = 12; var a: array [1..n, 1..m] of integer; i, j, x: integer; sum: longint; begin randomize; sum := 0; for i := 1 to n do for j := 1 to m do a[i, j] := random(50000); writeln(' Доходы фирмы( строки это магазины; столбцы месяцы)'); for i := 1 to n do begin for j := 1 to m do write(' ', a[i, j]:5); writeln; end; writeln('Введите значение'); readln(x); for i := 1 to n do begin sum := sum + a[i, 9]; end; writeln('Доход фирмы за сентябрь: ', sum); if sum > x then writeln('Общий доход фирмы в сентябре превысил ', x) else writeln('Общий доход фирмы в сентябре не превысил ', x); end.
Объяснение кода листинга программы
- В программе объявлены две константы n и m, которые представляют количество строк и столбцов в массиве a.
- Затем объявлен массив a, который представляет собой двумерный массив целых чисел.
- Далее объявлены три переменные i, j и x, которые будут использоваться для итерации по массиву и сравнения суммарного дохода с заданным числом.
- С помощью функции randomize генерируется случайное число для каждой ячейки массива a.
- Затем происходит итерация по массиву a, где каждая строка выводится на экран.
- После этого происходит итерация по массиву a, где каждая ячейка суммируется с доходом в сентябре (a[i, 9]).
- Затем сумма всех доходов за сентябрь выводится на экран.
- После этого программа запрашивает у пользователя значение x.
- Затем происходит итерация по массиву a, где суммарный доход сравнивается с заданным значением x.
- Если суммарный доход превышает x, то выводится сообщение об этом, иначе выводится сообщение о том, что суммарный доход не превышает x.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д