Question

Создать одномерный массив М из 15 целых чисел (числа вводит пользователь).Вывести на экран массив в виде строки чисел.

Answer 1

Program Program1;
var Array_M: array [1..15] of integer;
i: integer;
begin
for i := 1 to 15 do
begin
write('Введите значение ', i, ' элемента массива: ');
readln(Array_M[i]);
end;
for i := 1 to 15 do write(Array_M[i], ' ');
end.