Question

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

Answer 1

Ответ:

var A: array [1..10] of integer;

var i,s: integer;

begin

s:=0;

for i:=1 to 10 do

 begin

 readln(A[i]);

 s:=s+A[i];

 end;

writeln();

writeln('Сумма всех элементов: ',s);

end.

Answer 2

Конечно, я могу помочь вам с этой задачей на языке Pascal. Вот пример решения:

pascalCopy code
program SumOfArrayElements;
var
  arr: array[1..10] of Integer;
  i, sum: Integer;
begin
  sum := 0;
  
  // Ввод значений с клавиатуры и вычисление суммы
  writeln('Введите 10 целых чисел:');
  for i := 1 to 10 do
  begin
    readln(arr[i]);
    sum := sum + arr[i];
  end;
  
  // Вывод результата
  writeln('Сумма всех элементов массива: ', sum);
  
  readln;
end.

В этом примере мы объявляем массив arr из 10 элементов типа Integer и переменную sum для хранения суммы. Затем мы запускаем цикл, который просит пользователя ввести 10 целых чисел с клавиатуры. В каждой итерации цикла мы считываем число, добавляем его к сумме и сохраняем в соответствующий элемент массива. После завершения цикла выводим сумму всех элементов массива на экран.

Пожалуйста, обратите внимание, что Pascal требует использования ключевого слова program в начале программы и begin и end. для определения области видимости кода. Также не забудьте использовать readln для чтения значений с клавиатуры и writeln для вывода результатов.

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут ещё вопросы, пожалуйста, сообщите.