Question

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

Answer 1

Ответ:

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.

Подробнее - на Znanija.com - https://znanija.com/task/3379065#readmore

Объяснение: