Question

Дан одномерный массив размером 10 Заполнить его числами из интервала [-15:15],случайным образом и напечатать только положительные числа

Answer 1

const
  N = 10;
Var
  M:array[1..N] of integer;
  i,k:integer;
Begin
  Randomize;
  Write('Эти числа не печатаются... ( ');
  For i:= 1 to N do
  Begin
    M[i] := random(31)-15;
    Write(M[i],' ');
  End;
  WriteLn(')');
  Write('Положительный числа:');
  For i:= 1 to N do
    if (M[i] > 0) then
      Write(' ',M[i]);
End.

Answer 2

Спасибо огромное!!!

Answer 3

// PascalABC.NET 3.3, сборка 1599 от 17.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-15,15); a.Println;
  a.Where(t->t>0).Println
end.

Пример
4 -11 7 12 -10 8 -9 -14 1 -15
4 7 12 8 1