Создать одномерный массив М из 15 целых чисел (числа вводит пользователь).Вывести на экран массив в виде строки чисел.
Создать одномерный массив М из 15 целых чисел (числа вводит пользователь).
Вывести на экран массив в виде строки чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы