Предмет: Информатика,
автор: 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
Ответы
Автор ответа:
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:
Программы не работают
Похожие вопросы
Предмет: Українська література,
автор: Аноним
Предмет: Химия,
автор: hzhccjt8py
Предмет: Английский язык,
автор: brawls20067
Предмет: Математика,
автор: JuliaBalkovskaya
Предмет: Математика,
автор: rvsaksay