Огромная с клавиатуры ввести 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.