Question

(Найти сумму элементов массива из 10 чисел) с полным ответом! Pascal ABC Ошибка ожидался индификатор, но "var" обнаружено Program Alex3212;constn = 10;varA: array[1..n] of real;beginvar S : real := 0;for var i := 1 to n do beginif i = 1 then a[1] := 1else a[i] := sqrt(a[i - 1]) + 1;write(' ', a[i]:0:4);S += a[i]end;writeln;writeln('Сумма: ', S:0:4)end.

Answer 1

Program Alex3212;

const

n = 10;

var

A: array[1..n] of real; S : real;

begin

S = 0;

for var i := 1 to n do begin

readln(a[i]);

S += a[i];

end;

writeln('Сумма: ', S:0:4)

end.

Answer 2

program Alex3212; const n = 10; var A: array[1..n] of real; begin var S: real := 0; for var i := 1 to n do begin if i = 1 then a[1] := 1 else a[i] := sqrt(a[i-1]) + 1; write('+', a[i]:0:4); S := S + a[i]; end; writeln; writeln('Сумма: ', S:0:4) end.

Данный код на языке Pascal ABC ищет сумму элементов массива из 10 чисел. В начале объявляется массив A из 10 элементов типа real. Затем происходит инициализация переменной S, которая будет хранить сумму элементов массива. Далее происходит цикл, в котором каждому элементу массива присваивается значение в соответствии с условием. Затем значение каждого элемента выводится на экран с помощью функции write. После этого вычисляется сумма элементов массива и выводится на экран с помощью функции writeln.