Pascal Информатика «A»: Напишите программу, которая заполняет массив из N = 8 элементов...

Question

Pascal Информатика «A»: Напишите программу, которая заполняет массив из N = 8 элементов случайными числами в диапазоне [0,10], выводит его на экран, а затем выводит на экран квадраты всех элементов массива. Пример: Массив: 5 6 2 3 1 4 8 7 Квадраты: 25 36 4 9 1 16 64 49 «B»: Напишите программу, которая заполняет массив из N = 10 случайными числами в диапазоне [100,300] и выводит его на экран. После этого на экран выводятся средние цифры (число десятков) всех чисел, записанных в массив. Пример: Массив: 142 224 135 257 167 295 126 223 138 270 Число десятков: 4 2 3 5 6 9 2 2 3 7 «C»: Напишите программу, которая заполняет массив из N = 10 случайными числами в диапазоне [100,500] и выводит его на экран. После этого на экран выводятся суммы цифр всех чисел, записанных в массив. Пример: Массив: 162 425 340 128 278 195 326 414 312 177 Суммы цифр: 9 11 7 11 17 15 11 9 6 15

Answer 1

// A

begin

 var a := ArrRandom(8, 0, 10);

 a.Println;

 a.Select(x->x*x).Println;

end.

// B

begin

 var b := ArrRandom(10, 100, 300);

 b.Println;

 b.Select(x->x div 10 mod 10).Println;

end.

// C

begin

 var c := ArrRandom(10, 100, 500);

 c.Println;

 var f: integer->integer := x->x mod 10 + x div 10 mod 10 + x div 100;

 c.Select(x -> f(x)).Println;

end.

Comments

Программы не работают

---

У меня все работает

---

Pascal!!!

---

А это паскаль, PascalABC.NET. Надо конкретизировать какой у вас компилятор.