Задание 68. Программа ввода массива из 10 чисел с помощью цикла while в Паскале

Задание 68. На блок-схеме представлен алгоритм ввода массива из 10 целых чисел с помощью цикла с предусловием. Запишите соответствующую программу на языке Паскаль.

Код программы на языке Паскаль

var a: array [1..10] of integer;
    i: integer;
BEGIN
  i := 1;
  while i <= 10 do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
    i := i + 1;
  end;
END.

Пошаговое объяснение программы

1. Объявление переменных

var
    a: array [1..10] of integer;
    i: integer;

• a: array [1..10] of integer - объявляет массив из 10 целых чисел с индексами от 1 до 10
• i: integer - объявляет целочисленную переменную-счетчик

2. Инициализация счетчика

i := 1;

• Устанавливает начальное значение счетчика i в 1 (первый элемент массива)

3. Цикл while для ввода данных

while i <= 10 do
begin
  write('a[', i, '] = ');
  readln(a[i]);
  i := i + 1;
end;

• while i <= 10 do - цикл выполняется, пока счетчик не превысит 10
• write('a[', i, '] = ') - выводит приглашение для ввода элемента (например, "a[1] = ")
• readln(a[i]) - считывает введенное пользователем значение и сохраняет в i-й элемент массива
• i := i + 1 - увеличивает счетчик на 1 для перехода к следующему элементу