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

Question

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

Comments

Паскаль? Бейсик? Питон? Си?

---

Паскаль

Answer 1

// 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

Answer 2

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.

Comments

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