Огромная просьба-Пожалуйста посчитайте! 55 поинтов!!!№1 С клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5. №2 В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов. Элементы массива вводить с клавиатуры. №3 Дан массив A, содержащий 10 целых чисел. Элементы массива вводить с клавиатуры. Вывести на печать все числа, увеличив каждое значение в 2 раза.

номер 1

program N1;var a: array [1..10] of integer;i:integer;beginfor i:= 1 to 10 doreadln(a[i]);for i:=1 to 10 do beginif a[i]>5 thenwrite (a[i]);end;end.

номер 2
program N1;var a: array [1..10] of integer;i,s:integer;beginfor i:= 1 to 10 doreadln(a[i]);s:=0;for i := 1 to 10 do beginif a[i]>0 thens:=s+a[i];end;write(s);end.

номер 3

program N1;var a: array [1..10] of integer;i:integer;beginfor i:= 1 to 10 doreadln(a[i]);for i:=1 to 10 do begina[i]:=a[i]*2;write(' ',a[i]);end;end.