Question

Найти сумму 10 элементов массива (на языке Паскаль)

Answer 1

Program prog;
Uses crt;

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

begin
clrscr;

for i:=1 to 10 do
begin
write('a[',i,'] = ');
readln(a[i]);
s:=s+a[i];
end;
writeln;
writeln('Sum = ', s);
end.

Answer 2

Var
i,sum:integer;
a:array[1..10] of integer;
begin
sum:=0;
for i:=1 to 10 do
begin
a[i]:=1+random(99);
write(a[i],' ');
sum:=sum+a[i];
end;
writeln;
write('Сумма: ', sum);
end.

Answer 3

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

program sum_of_array;
const
  n = 10;
var
  a: array[1..n] of integer;
  s, i: integer;
begin
  writeln('Введите элементы массива:');
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
  end;
  
  s := 0;
  for i := 1 to n do
    s := s + a[i];
  
  writeln('Сумма элементов массива: ', s);
  readln;
end.

В этом коде мы объявляем массив `a` с 10 элементами типа `integer`. Затем мы запрашиваем у пользователя ввод значений для каждого элемента массива. После этого мы инициализируем переменную `s` нулевым значением и используем цикл `for` для прохода по всем элементам массива и добавления их к переменной `s`. Наконец, мы выводим сумму элементов массива на экран.

Пример ввода и вывода: ``` Введите элементы массива: a[1] = 5 a[2] = 2 a[3] = 8 a[4] = 3 a[5] = 1 a[6] = 7 a[7] = 6 a[8] = 4 a[9] = 9 a[10] = 0 Сумма элементов массива: 45 ```

Пожалуйста, обратите внимание, что в приведенном коде пользователь вводит значения для каждого элемента массива. Если вам нужно сгенерировать случайные значения для элементов массива, вы можете использовать функцию `random` вместо чтения значений с клавиатуры.