1. Написать программу, которая вводит двумерный массив 3х3, выводит его на экран в виде матрицы, а затем выводит количество элементов меньше 5, но больше 0.
6 3 9
5 9 2
3 7 6
Количество элементов меньше пяти, но больше нуля равно 3.
2. Мальчик купил несколько тетрадей по сто рублей и несколько обложек по 50 рублей. Составить программу, которая могла бы подсчитать стоимость всей покупки.
Это паскаль,мне надо срочно,поэтому прошу не бросать в беде.
Answers & Comments
##
var a := ReadMatrInteger(3,3);
a.Println;
Print('Количество элементов меньше пяти, но больше нуля равно',
a.ElementsByRow.Where(t -> t in 1..4).Count)
##
var Тетрадей := ReadInteger('Куплено тетрадей:');
var Обложек := ReadInteger('Куплено обложек :');
Print('Сумма покупки, руб:', 100 * Тетрадей + 50 * Обложек)