Предмет: Информатика, автор: pilot1529

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


Ответы

Автор ответа: iolandavalerypad353
3

// 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.


pilot1529: Программы не работают
iolandavalerypad353: У меня все работает
pilot1529: Pascal!!!
iolandavalerypad353: А это паскаль, PascalABC.NET. Надо конкретизировать какой у вас компилятор.
Похожие вопросы
Предмет: Химия, автор: hzhccjt8py
Предмет: Математика, автор: JuliaBalkovskaya