profile
Опубликовано 5 лет назад по предмету Информатика от 6elive

1. Заполнить массив случайным образом и вывести на экран только положительные элементы.

  1. Ответ
    Ответ дан lbvf23

    Const n=10;

    Var k, i:integer ;

    A:array [1..n]of Integer ;

    Begin

    K:=0;

    For i:=1 to N do begin

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

    If a[i]>0 then write(' A[', i, ']=', a[i]) ;

    End;

    End.