1. с клавиатуры последовательно вводятся десять чисел. написать программу на паскале,которая вычислит и выведет на экран сумму чисел,кратных 3. 2. с клавиатуры вводится число n. написать программу, которая вычислит и выведет на экран все его делители

Ввод с клавиатуры одномерного массива целых чисел и вывод его элементов на экран с противоположным знаком program massiv2;       const n=10;     type {  раздел описания типов переменных. эти типы определяет сам пользователь, то есть мы определяем тип одномерного массива из n целых чисел  }        mas=array [1..n] of integer; {  1..n - тип индекса; для индекса выбран интервальный тип. то есть интервал целых чисел от 1 до n. где n определено в разделе const  }    var            line: mas; {  line - одномерный массив, его тип определен нами как mas  }            i: integer; {переменная, хранящая индекс элемента массива, к которому идет обращение  }begin{  ввод массива с клавиатуры  }    for i: =l to n do {  обращение к элементам массива происходит в цикле, по очереди  }        begin {  начало цикла ввода элементов массива  }            write('введите элемент с индексом ' ,i,' : ');             readln(line[i]) {  обращаемся к i-му элементу массива (line[l],line[2] и т. д.)}        end; {  конец цикла ввода элементов массива  }{  вывод элементов происходит также в цикле: }    for i: =l to n do {  перебираем все n элементов массива  }        write(-line[i]: 5); {  10 элементов выводятся в строку. выводим все элементы массива с противоположным знаком  }    writeln; {  после вывода массива элементов - переход на новую строку  }      readln  end.

Var   i,n: integer;   a: array of integer; begin setlength(a,10); write('исходный массив: '); for i: =0 to 9 do   begin   a[i]: =random(10);   write(a[i],' ');   end; writeln; write('преобразованный массив: '); for i: =0 to 9 do   begin   if not((i mod 2=0) and (a[i] mod 2=0)) then     begin     a[n]: =a[i];     n: =n+1;     end;   end; setlength(a,n); for i: =0 to n-1 do   write(a[i],' '); end.