Сгенерировать и вывести массив случайных чисел, состоящий из 16 элементов, заполненный случайными числами от 12 до 25?
Ответ:
var a:^array[1..100] of integer;
n,i,j:integer;
begin
new(a);
repeat
write('Введите размер массива от 12 до 25 n=');
readln(n);
until n in [12..125];
for i:=1 to n do
a^[i]:=1+random(100);
write(a^[i]:4);
end
end.
Объяснение:
От души!