Создайте блок-схему к задачи:

+ 0 -

Veresotsky

20 янв. 2015 г., 12:42:29 (9 лет назад)

var
  i, j, n, np, l: integer;
  a, b: array[1..100] of integer;

begin
  Randomize;
  n := 50; l := 30;
  for i := 1 to N do
  begin
    a[i] := -n + Random(100);
    write(' ', a[i]);
  end;
  Writeln;
  Writeln('Массив положительных элементов');
  j := 0;
  for i := 1 to l do
    if a[i] > 0 then begin
      j := j + 1;
      b[j] := a[i];
      Write(b[j]:3)
    end;
  np := j;
  Writeln;
  Writeln('Массив содержит ', np, ' положительных элементов')
end.

Тестовое решение:

 41 -15 1 -16 4 -33 -2 40 21 -17 3 -50 -15 25 1 -41 -19 27 -36 -42 11 -34 30 -15 31 -3 17 -22 -47 -21 -11 -33 -8 2 -32 12 -27 15 -41 -5 22 -42 -21 36 -16 37 -17 -46 -26 -8
Массив положительных элементов
 41  1  4 40 21  3 25  1 27 11 30 31 17
Массив содержит 13 положительных элементов