Question

1. Написать программу, которая вводит двумерный массив 3х3, выводит его на экран в виде матрицы, а затем выводит количество элементов меньше 5, но больше 0.
6 3 9
5 9 2
3 7 6

Количество элементов меньше пяти, но больше нуля равно 3.

2. Мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки.
Это паскаль,мне надо срочно,поэтому прошу не бросать в беде.

Answer 1

##

var a := ReadMatrInteger(3,3);

a.Println;

Print('Количество элементов меньше пяти, но больше нуля равно',

 a.ElementsByRow.Where(t -> t in 1..4).Count)

##

var Тетрадей := ReadInteger('Куплено тетрадей:');

var Обложек := ReadInteger('Куплено обложек :');

Print('Сумма покупки, руб:', 100 * Тетрадей + 50 * Обложек)