Массив из десяти элементов заполнили, а потом изменили. Чему будет равна сумма значений элементов массива после выполнения фрагмента программы? for i := 1 to 10 do
A[i]:=i + 1;
for i := 2 to 10 do
A[i]:= A[i - 1];

всё 1

Объяснение:

Это происходит из-за этой строки:

A[i]:= A[i - 1];

Она нам говорит - замени этот элемент на предыдущий.

Смотрим for, первый элемент у нас с индексом 2, в массиве - это число 2.

Предыдущие 1 - 2 заменяют на 1.

И так далее. Переходят к третьему элементу, но теперь у нас все элементы позади него - являются единицами.

var i,s: integer;

{1}begin

s: =0;

for i: =1 to 1000  do

if i mod 2=0 then s: =s+i;

end.

{2}begin

for i: =1 to 1000 do

if odd(i) then s: =s+i;

{3}a: array[1..500] of integer;

n: integer;

for i: =1 to 1000 do

if odd(i) then a[i]: =i;

n: =i;

for i: =1 to n do

s: =a[i]+s;

end.

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.