В-3 1) опишите последовательность 10 целых чисел с массива 2) дан фрагмент программы: for i: =1 to 10 do a[i]: =sqr(i)-i; определите элементы массива 3) дан массив (см 2). определите результат работы фрагмента программы: k: =0; for i: =1 to 10 do if (a[i]> 10) and (a[i]< 70) then k: =k+1; write(k); 4) напишите фрагмент программы, которая преобразует массив из десяти элементов следующим образом: все отрицательные элементы заменяет -1, а остальные заменяет на 1.

1) не ясен вопрос 2) 0 2 6 12 20 30 42 56 72 90 3) 5 4) for i : = 1 to 10 do       begin               if (a[i] < 0) then                       a[i] : = -1               else a[i] : = 1;               write(a[i], ' ');       end; код полностью   var       a: array[1..10] of integer;       i, k: integer; begin       for i : = 1 to 10 do       begin               a[i] : = sqr(i) - i;               write(a[i], ' ');       end;       writeln;             k : = 0;       for i : = 1 to 10 do               if (a[i] > 10) and (a[i] < 70) then                       k : = k + 1;       write(k);       writeln;             for i : = 1 to 10 do       begin               if (a[i] < 0) then                       a[i] : = -1               else a[i] : = 1;               write(a[i], ' ');       end; end.

1)src

2)alt

3)Так

4)PNG

5)animation-delay: <время>[, <время>]*

6)audioplay

7)src

Объяснение:

Здесь не все но выдал все что знаю