Создать одномерный массив М из 15 целых чисел (числа вводит пользователь). Вывести на экран массив в виде строки чисел.
Answers & Comments
SlimDog97
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.
Answers & Comments
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.