Массив

[darkneron]

Дан одномерный массив А(n), N=25, заданный случайным образом.

[Valio]

Ищи по форуму, было.

[darkneron]

Искал, не нашел.

[denisbrain]

Сообщение от darkneron

Искал, не нашел.

{
Дан одномерный массив А(n), N=25, заданный случайным образом.
Вычислить количество отрицательных элементов данного массива.
Найти наименьший положительный элемент массива.
спецально для http://netsoftware.ucoz.ru

}
uses crt;
Const
  N = 25;
  var
  a:array [1..n] of integer;
  x:integer;
  minA:integer;
  countElement:integer;
  
  begin
  clrscr;
  Writeln('Дан одномерный массив А(n)');
    for X:=1 to n do begin
     a[x]:=-15+random(30);
     if a[x]>0 then minA:=a[x];
     write(a[x]:4);
    end;
    x:=n;
    countElement:=0;
    Writeln('');

    for X:=1 to n do begin
     if a[x]<0 then countElement:=countElement+1;

     if (a[x]>0) and  (minA>a[x]) then minA:=a[x];
    end;
    
    Writeln('Количество отрицательных элементов данного массива  ',countElement:2);
    Writeln('Наименьший положительный элемент массива равен ',minA:2);
    
    
  end.

[darkneron]

Спасибо большое!