Задача 2 Урок 15

Задание 2 Урок 15:

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

type arr = array[1..7] of integer;
var i,value_of_user : integer;
  first_array : arr;
begin
  for i := low(first_array) to high(first_array) do
    begin
      write('Введите значение №', i, 'и нажмите ENTER: ');
      readln(value_of_user);
      first_array[i] := value_of_user;
    end;
  write('Массив пользователя - ');
  for i := low(first_array) to high(first_array) do
    write('|', first_array[i], '|');
  readln();
end.

консоль:

Введите значение №1и нажмите ENTER: 15
Введите значение №2и нажмите ENTER: 69
Введите значение №3и нажмите ENTER: 72
Введите значение №4и нажмите ENTER: -5
Введите значение №5и нажмите ENTER: 62
Введите значение №6и нажмите ENTER: 31
Введите значение №7и нажмите ENTER: -47
Массив пользователя - |15||69||72||-5||62||31||-47|
vedro-compota's picture

решение засчитано

_____________
матфак вгу и остальная классика =)