Заполнить одномерный массив из n элементов случайными числами из промежутка от -20 до 20 и определить количество положительных элементов массива.

Program Task;

Const N = 10;

Var a: Array [1..N] of Integer;

i: Integer;

Begin

Randomize;

For i := 1 To N Do

a[i] := Random(25 + 20 + 1) - 20;

WriteLn('Результат №1: ');

For i := 1 To N Do

Write(a[i], ' ');

WriteLn;

For i := 1 To N Do

If a[i] > 0 Then

a[i] := 1

Else If

a[i] < 0 Then

a[i] := 0;

WriteLn('Результат №2:');

For i := 1 To N Do

Write(a[i], ' ');

ReadLn;

End.

Подробнее - на -

Объяснение: