Блок-схема и программа определения

[Alkapone]

Здравствуйте! Прошу помощи по заданию.
С клавиатуры вводится 10 произвольных чисел.Составить блок-схему и программу определения суммы всех вводимых чисел. Через VBA или через паскаль.

[Вадим Мошев]

Вам помочь или готовое решение нужно?

[Alkapone]

Сообщение от Вадим Мошев

Вам помочь или готовое решение нужно?

Готовое решение, если можете.

[ogamilait]

Сообщение от Alkapone

Здравствуйте! Прошу помощи по заданию.
С клавиатуры вводится 10 произвольных чисел.Составить блок-схему и программу определения суммы всех вводимых чисел. Через VBA или через паскаль.

var
  i,b:integer;
  a:array[1..10] of integer;
begin
  // Вводим 10 чисел
  for i:=1 to 10 do
    begin
      writeln('Введите чило ',i);
      readln(a[i]);
    end;

  // Считаем суму всех числе  
  b:=a[1];
  for i:=1 to 9 do
    begin
      b:=b+a[i+1];
    end;
    
  // Выводим суму
  writeln('Сума всех числе = ',b);
end.

Або так определить суму:

  // Считаем суму всех числе  
  b:=a[1];
  for i:=2 to 10 do
    begin
      b:=b+a[i];
    end;

[ogamilait]

Ах да блок-схема:
Софт для блок-схем: avtoshema

[Alkapone]

Сообщение от ogamilait

var
  i,b:integer;
  a:array[1..10] of integer;
begin
  // Вводим 10 чисел
  for i:=1 to 10 do
    begin
      writeln('Введите чило ',i);
      readln(a[i]);
    end;

  // Считаем суму всех числе  
  b:=a[1];
  for i:=1 to 9 do
    begin
      b:=b+a[i+1];
    end;
    
  // Выводим суму
  writeln('Сума всех числе = ',b);
end.

Або так определить суму:

  // Считаем суму всех числе  
  b:=a[1];
  for i:=2 to 10 do
    begin
      b:=b+a[i];
    end;

Спасибо большое за помощь!