Помогите написать программу в Паскаль.
Сформировать массив, подметить кол-во отрицательных элементов и заменить их на 2

Вопрос школьника по предмету Информатика

Помогите написать программу в Паскаль.
Сформировать массив, подметить кол-во отрицательных элементов и заменить их на 2

Ответ учителя по предмету Информатика

Const

   N = 13;

Var

   A:array[1..N] of integer;

   i,k:integer;

Begin

Randomize;

k:=0;

Write(‘Исходный массив:’);

For i:= 1 to N do

    Begin

    A[i]:=random(21)-10;

    Write(‘ ‘,A[i]);

    if A[i] < 0 then

       Begin

       k:=k+1;

       A[i]:=2

       End;

    End;

WriteLn;

WriteLn(‘Количество отрицательных элементов: ‘,k);

Write(‘Новый массив:’);

For i:= 1 to N do

    Write(‘ ‘,A[i])

End.

Пример работы программы:

Исходный массив: -1 -9 7 -2 -5 -3 -1 6 3 -6 9 8 -10

Количество отрицательных элементов: 8

Новый массив: 2 2 7 2 2 2 2 6 3 2 9 8 2