Question

Паскаль в массиве
1.Составьте программу, которая в одномерном массиве размерностью 12 (элементы случайные числа из промежутка от 1 до 9) подсчитывает количество чётных элементов. Оформите вывод элементов на экран в строчку, вывод количества чётных на следующей строке.

2.Составьте программу, которая в одномерном массиве размерностью 8 (элементы массива случайные числа из промежутка от 15 до 100) находит максимальный элемент. Оформите вывод элементов на экран в строчку, максимальный на следующей строке.

Answer 1

Ответ:

PascalABC.NET 3.5.1

#1

begin

 var A := ArrRandom(12, 1, 9);

 A.Println;

 A.Where(p -> p mod 2 = 0).Count.Println;

end.

#2

begin

 var A := ArrRandom(8, 15, 100);

 A.Println;

 A.Max.Println;

end.

Объяснение: