Pascal ИнформатикаA: Напишите программу, которая наполняет массив из N = 8
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] и выводит его на экран. После этого на экран выводятся средние цифры (число 10-ов) всех чисел, записанных в массив.
Пример:
Массив: 142 224 135 257 167 295 126 223 138 270
Число 10-ов: 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
// A
begin
var a := ArrRandom(8, 0, 10);
a.Println;
a.Select(x-gt;x*x).Println;
end.
// B
begin
var b := ArrRandom(10, 100, 300);
b.Println;
b.Select(x-gt;x div 10 mod 10).Println;
end.
// C
begin
var c := ArrRandom(10, 100, 500);
c.Println;
var f: integer-gt;integer := x-gt;x mod 10 + x div 10 mod 10 + x div 100;
c.Select(x -gt; f(x)).Println;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.