Решение задач к практической работе 15-19 октября

Увеличить каждый элемент массива на 2 

program aaa;

var h: array[1..5] of integer;

 i:integer;

begin

      for i:=1 to 5 do       read(h[i]);

      for i:=1 to 5 do h[i]:=h[i]+2 ;

  for i:=1 to 5 do      writeln ('новый элем ', h[i]);

end.

Подсчитать сумму чисел, введенных с клавиатуры
program aaa;
var h: array[1..5] of integer;
 Sum,i:integer;
begin
Sum:=0;
      for i:=1 to 5 do       read(h[i]);
      for i:=1 to 5 do Sum:=Sum+h[i];
write('Сумма чисел =',Sum);
end.
Подсчитать сумму положительных чисел, введенных с клавиатуры
program aaa;
var h: array[1..5] of integer;
 Sum,i:integer;
begin
Sum:=0;
      for i:=1 to 5 do       read(h[i]);
      for i:=1 to 5 do if  h[i] >0  then Sum:=Sum+h[i];
write('Сумма чисел =',Sum);
end.
Подсчитать сумму отрицательных чисел, введенных с клавиатуры
program aaa;
var h: array[1..5] of integer;
 Sum,i:integer;
begin
Sum:=0;
      for i:=1 to 5 do       read(h[i]);
      for i:=1 to 5 do if h[i]<0 then Sum:=Sum+h[i];
write('Сумма чисел =',Sum); 
end.
Подсчитать сумму четных чисел, введенных с клавиатуры
program aaa;
var h: array[1..5] of integer;
 Sum,i:integer;
begin
Sum:=0;
      for i:=1 to 5 do       read(h[i]);

      for i:=1 to 5 do   if h[i] mod 2 = 0 then Sum:=Sum+h[i];

write('Сумма чисел =',Sum);

end.