Pascal abc массивы

[Александр 19]

1.Заданы массивa A(10) и величина N. Отрицательные элементы заменить на N. Измененный массив A вывести на экран одной строкой.
2.Вычислить сумму квадратов всех нечетный элементов массива A(10). Результат вычисления вывести на экран.

[<- DelpHIFanat ->]

Это же лёгкие задачки!

Задача 1.

Var
  Mas: Array[0..9] Of Integer;
  N: Integer;
  i: Byte;

begin
  Write('Vvedi N: ');
  ReadLn(N);
  WriteLn;
  
  Randomize;
  For i:=0 To 9 Do
    Begin
      Mas[i]:=Random(11)-5;
      Write(Mas[i], ';  ');
    End;

  WriteLn;
  WriteLn;
  WriteLn('-----------------------');
  WriteLn;

  For i:=0 To 9 Do
    Begin
      If (Mas[i] < 0) Then
        Mas[i]:=N;
        
      Write(Mas[i], ';  ');
    End;

  WriteLn;
  WriteLn;
  WriteLn('Davi na ENTER!');
  ReadLn;
end.

Задача 2.

Var
  Mas: Array[0..9] Of Integer;
  Sum: Integer;
  i: Byte;

begin
  Sum:=0;
  Randomize;
  For i:=0 To 9 Do
    Begin
      Mas[i]:=Random(11)-5;
      Write(Mas[i], ';  ');
      If (Odd(Mas[i])) Then
        Sum:=Sum+Sqr(Mas[i]);
    End;

  WriteLn;
  WriteLn;
  WriteLn('Summa = ', Sum);

  WriteLn;
  WriteLn('Davi na ENTER!');
  ReadLn;
end.