Огромная просьба-ПОМОГИТЕ! 55 БАЛЛОВ!!! №1 С клавиатуры ввести 10 целых чисел и вывести...

Question

Огромная просьба-ПОМОГИТЕ! 55 БАЛЛОВ!!!

№1
С клавиатуры ввести 10 целых чисел и вывести в строчку все числа большие 5.

№2
В массиве A, содержащем 10 положительных и отрицательных целых чисел, вычислить сумму положительных элементов. Элементы массива вводить с клавиатуры.

№3
Дан массив A, содержащий 10 целых чисел. Элементы массива вводить с клавиатуры. Вывести на печать все числа, увеличив каждое значение в 2 раза.

Answer 1

Номер 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.