Написать программу расчета стоимости покупки и сдачи по номиналу - Pascal

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

1. Написать программу проверки знаний с проверкой тестируемого в списке 2. Написать программу расчета стоимости покупки и сдачи по номиналу 3. Написать программу которая в зависимости от введенного пользователем возраста выдает на экран некоторую строку 4. Написать программу выбора товара и расчета стоимости покупки 5. Написать программу подсчитывающую количество разных элементов в одномерном массиве 6. Написать программу подсчитывающую количество простых и количество четных чисел в таблице. Числа в таблицу вносятся пользователем 7. Написать программу, выдающую строк, внесенную пользователем, в обратном порядке 8. Подсчитать процентное соотношение положительных и отрицательных чисел в векторе 9. Написать программу заполняющую одномерный массив 1*10 числами каждое из которых является суммой двух предыдущих. Первые 2 числа задаются пользователем 10. Написать программувыдающую номер строки массива с максимальным средним арифметическим элементов 11. Написать программу подсчитывающую разницу между максимальным и минимальным элементом массива 12. Написать программу перемножающую 2 матрицы (1*М) и (М*1). Матрицы заносятся пользователем 13. Написать программу сравнивающую суммы главной и второстепенной диагоналей матрицы. Матрицу заносит пользователь 14. Написать программу которая позволяет пользователю занести в поле для ввода фамилию и имя через пробел а потом выводит фамилию в одну надпись а имя в другую 15. Написать программу находящую в каждой строке матрицы 5*5 максимальный элемент и заносящую эти .лементы в одномерный массив матрица заносится пользователем 16. Написать программу проверяющую является ли эта строка перевертышем (то есть читающейся как в прямом так и в обратном порядке без учета пробелов 17. Написать программу транспонирующую матрицу 10*10 (т.е. строки становятся столбцами) матрица заносится пользователем 18. Написать программу удаляющую все пробелы между словами За раннее огромное спасибо!

Решение задачи: «Написать программу расчета стоимости покупки и сдачи по номиналу»

Листинг программы

program prog;
 
uses
  crt;
 
const
  N = 3;
 
var
  i, j: integer;
  sum1, sum2: integer;
  matrix: array[1..N, 1..N] of integer;
begin
 
  writeLn('input matrix(', N, 'x', N, '):');
  for i:= 1 to N do begin
    for j:= 1 to N do begin
      write('[', i, ',', j, '] = ');
      readLn(matrix[i,j]);
    end;
  end;
 
  clrScr;
 
  writeLn('matrix(', N, 'x', N, '):');
  for i:= 1 to N do begin
    for j:= 1 to N do
      write(matrix[i,j]:5);
    writeLn;
  end;
 
  sum1:= 0;
  sum2:= 0;
 
  for i:= 1 to N do begin
    sum1:= sum1 + matrix[i, i];
    sum2:= sum2 + matrix[i, N-i+1];
  end;
 
  if sum1 > sum2 then
    writeLn('сумма элементов главной диоганали больше...')
  else if sum1 < sum2 then
    writeLn('сумма элементов второстепенной диоганали больше...')
  else
    writeLn('равны...');
 
  readLn;
end.

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

В первой части кода пользователю предлагается ввести матрицу размером 3x3.
Затем выводится сама матрица.
После этого экран очищается, и выводится та же матрица, но уже в виде чисел, а не символов.
Далее происходит суммирование элементов главной диагонали (сумма элементов на позициях i и N-i+1) и второстепенной диагонали (сумма элементов на позициях i и N-i+1).
И, наконец, программа проверяет, какая из сумм больше, и выводит соответствующее сообщение.