Паскаль в массиве 1.Составьте программу, которая в одномерном массиве размерностью 12...

Question

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

Comments

Паскаль в массиве, это как сосиска в тесте? ))

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.

Объяснение:

Comments

Первый код не справляется с задачей - он выводит только одно рандомное число, вместо четных подряд

---

А у Вас услове некорректное. Непонятно, что выводить. Вот я считаю, что требуется вывести все сгенерированные числа (а как иначе проверить, что программа верно работает) и количество четных. Именно это программа и делает.

---

Вот, я ее запустил:

---

2 6 8 1 8 8 6 7 5 2 4 4
9

---

все корректно, спасибо