Question

Напишите программу, которая считает сумму элементов массива целых чисел. Сначала задается целое число N = размер массива (он всегда меньше или равен 10), затем N целых чисел, каждая на отдельной строке. Ввод вывод (readln, writeln). Вывести сумму. Пример ввод 3 1 2 3 Вывод 6

Answer 1

Предоставлю 2 программы

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

i,n,s: integer;

begin

read(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do s:=s+a[i];

write(s);

end.

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

i,n,s: integer;

begin

read(n);

for i:=1 to n do begin readln(a[i]); s:=s+a[i]; end;

write(s);

end.

Answer 2

Конечно, вот программа на Pascal, которая считает сумму элементов массива целых чисел:

pascalCopy code
program SumOfArrayElements;

var
  N, i, sum: integer;
  arr: array[1..10] of integer;

begin
  // Чтение размера массива
  readln(N);

  // Заполнение массива и вычисление суммы
  sum := 0;
  for i := 1 to N do
  begin
    readln(arr[i]);
    sum := sum + arr[i];
  end;

  // Вывод суммы
  writeln(sum);
end.

Вы можете вставить этот код в свою среду разработки Pascal и запустить программу, введя необходимые значения. Например, вводите "3", а затем "1", "2" и "3", как в вашем примере, и программа выведет сумму "6".