Question

Напишите программу, которая заполняет массив из N=10 случайными числами в диапазоне {100;300} и выводит его на экран. После этого на экран выводятся средние цифры(число десятков) всех чисел, записанных в массив.
Пример:
Массив: 142 324 135 257
Число десятков: 4 2 3 5

Answer 1

const n=10;
var a: array [1..n] of integer;
i: integer;
begin
for i:=1 to n do
a[i]:=random(100,300);
writeln (a);
for i:=1 to n do
write (a[i] div 10 mod 10,'  ')
end.

Answer 2

//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
write('массив: ');
var a:=ArrRandom(10,100,300).Println;
write('число десятков: ');
a.ForEach(x->write(x.ToString[2],' '));
end.