5 задач в Паскале.

[Базиля]

Для своей задачи своя тема. Есть свои наработки? выкладывай Это не помочь решить, а решите за меня

[NioTo]

Кристиш@:

var
  NumbersCount, i: Integer;
  Numbers: Array of Integer;
  Sum1: Integer = 0;
  Sum2: Integer = 0;

begin
  Write('Введите число чисел, которое вы собираетесь ввести: ');
  ReadLn(NumbersCount);

  SetLength(Numbers, NumbersCount);

  WriteLn('Введите числа:');
  for i:= 1 to NumbersCount do begin
    ReadLn(Numbers[i]);

    if Numbers[i] mod 2 = 0 then
      Sum1 := Sum1 + Numbers[i];

    if (Numbers[i] > 3) and (Numbers[i] < 9) then
      Sum2 := Sum2 + Numbers[i];
  end;

  WriteLn('Сумма четных чисел: ', Sum1);
  WriteLn('Сумма чисел больших 3, но меньших 9: ', Sum2);
  WriteLn('Числа большие 7:');
  for i:= 1 to NumbersCount do
    if Numbers[i] > 7 then
      WriteLn(Numbers[i]);
end.