Сгенерировать и вывести массив случайных чисел, состоящий из 16 элементов, заполненный случайными числами от 12 до 25?

макс2857 макс2857    3   06.04.2020 16:17    1

Ответы
Ivanvipmarhade Ivanvipmarhade  12.10.2020 18:23

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

begin

 a^[i]:=1+random(100);

 write(a^[i]:4);

end

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика