В-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) Массив из 10 целых чисел: [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
2) Элементы массива a: [0, 0, 6, 14, 24, 36, 50, 66, 84, 104]
3) Результат работы программы: 4
4) Фрагмент программы:
For i:=1 to 10 do
begin
if a[i] < 0 then
a[i] := -1
else
a[i] := 1;
end.