begin
var A:array of integer;
setlength(A,15);
A.FillRandom(0,99);
for var L:=A.Low to A.High do
writeln('A[',L+1,'] = ',A[L]);
end.
Пример работы программы:
Поделитесь своими знаниями, ответьте на вопрос:
написать программу в Pascal по приложенному фото
begin
var A:array of integer;
setlength(A,15);
A.FillRandom(0,99);
for var L:=A.Low to A.High do
writeln('A[',L+1,'] = ',A[L]);
end.
Пример работы программы: