Создать массив из пяти чисел вводом с клавиатуры и посчитать сумму элементов массива(в паскале)

var arr: array[1.5] of integer; i, sum: integer;

begin sum := 0;

for i := 1 to 5 do begin

write('Введите число ', i, ': ');
readln(arr[i]);
sum := sum + arr[i];

end;

writeln('Сумма элементов массива: ', sum); end.

Для выполнения данной задачи в Pascal необходимо выполнить следующие шаги:

1. Объявить массив из пяти чисел и переменную для хранения суммы элементов:

   var
     arr: array[1.5] of Integer;
     i, sum: Integer;
   

2. Запросить у пользователя ввод пяти чисел и заполнить массив:

   for i := 1 to 5 do
   begin
     Write('Введите число ', i, ': ');
     Readln(arr[i]);
   end;
   

3. Вычислить сумму элементов массива:

   sum := 0;
   for i := 1 to 5 do
   begin
     sum := sum + arr[i];
   end;
   

4. Вывести результат на экран:

   WriteLn('Сумма элементов массива: ', sum);
   

Полный код программы:

program SumOfArrayElements;

var
  arr: array[1.5] of Integer;
  i, sum: Integer;

begin
  for i := 1 to 5 do
  begin
    Write('Введите число ', i, ': ');
    Readln(arr[i]);
  end;

  sum := 0;
  for i := 1 to 5 do
  begin
    sum := sum + arr[i];
  end;

  WriteLn('Сумма элементов массива: ', sum);
end.

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

Для создания массива из пяти чисел с вводом с клавиатуры и подсчета суммы элементов массива на языке программирования Паскаль, можно воспользоваться следующей программой:

program SumArray;
uses crt;

var
  arr: array[1.5] of integer;  // Объявление массива из пяти элементов
  i, sum: integer;             // Объявление переменных для цикла и суммы

begin
  clrscr;                      // Очистка экрана (опционально)
  sum := 0;                    // Инициализация суммы

  writeln('Введите 5 чисел для массива:');
  for i := 1 to 5 do           // Цикл для ввода элементов массива
  begin
    write('arr[', i, '] = ');
    readln(arr[i]);
    sum := sum + arr[i];       // Накопление суммы элементов массива
  end;

  writeln('Сумма элементов массива: ', sum);    // Вывод суммы
  readln;                       // Ожидание нажатия клавиши, чтобы программа не закрылась сразу
end.

Разберем программу детально:

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

   • arr: массив из пяти элементов типа integer.
   • i: переменная для итерации в цикле.
   • sum: переменная для хранения суммы элементов массива, инициализируется нулем.

2. Очистка экрана:

   • clrscr: очищает экран (опционально, используется для удобства).

3. Ввод элементов массива:

   • writeln('Введите 5 чисел для массива:');: выводит на экран сообщение для пользователя, чтобы он знал, что нужно ввести числа.
   • for i := 1 to 5 do: цикл, который выполняется от 1 до 5.
   • write('arr[', i, '] = ');: выводит на экран индекс текущего элемента массива для ввода.
   • readln(arr[i]);: считывает введенное пользователем число и сохраняет его в массив.
   • sum := sum + arr[i];: добавляет текущее введенное число к сумме.

4. Вывод суммы элементов массива:

   • writeln('Сумма элементов массива: ', sum);: выводит на экран сумму элементов массива.

5. Ожидание нажатия клавиши:

   • readln;: позволяет программе не закрываться сразу после выполнения, ожидая нажатия клавиши.

Эта программа позволяет пользователю ввести пять чисел, сохраняет их в массив, затем вычисляет и выводит сумму этих чисел.