(Найти сумму элементов массива из 10 чисел) с полным ответом! Pascal ABC
Ошибка ожидался индификатор, но "var" обнаружено
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 += a[i]
end;
writeln;
writeln('Сумма: ', S:0:4)
end.
Ошибка ожидался индификатор, но "var" обнаружено
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 += a[i]
end;
writeln;
writeln('Сумма: ', S:0:4)
end.
More Questions From This User See All
Answers & Comments
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.