Ответ:Таблица уже заполнила.
Объяснение:
Делать нечего не надо больше!
Var a:array [1..999] of real;
c:real;
n,i:integer;
begin
write ('Введите кол-во элементов: ');
readln(n);
c:=0;
i:=1;
while i<=n do
begin
write ('Введите ',i,' элемент: ');
readln (a[i]);
c:=c+a[i];
i:=i+1;
end;
writeln ('Сума ',n,' элементов = ',c);
end.
Семь раз отрез один раз отмерь
1) а=0 0 = 10. нет, тогда b становится -3 (т.к. -(3)+ 0 * 0), а становится 2
2). а = 2 2 = 10, нет, тогда b становится 7 (т.к. -(-3) + 2 * 2), а становится 4
3). а = 4 4 = 10, нет, тогда b становится 9 (т.к. -(7) + 4 * 4), а становится 6
4). а = 6 6=10, нет, тогда b становится 27 (т.к. -(9) + 6 * 6), а становится 8
5). а = 8 8=10, нет, тогда b становится 37 (т.к. -(27) + 8 * 8), а становится 10
6). a = 10 10 = 10 да, b = b * 2 = 37 * 2 = 74
ответ: 74
APL , NPL , Snobol Симула