Дан массив из двадцати элементов. числа выбираются из промежутка от 0 до 50. найти минимальное значение элемента и его место.

Var a: array [1..20] of integer;     i, m: integer; begin       for i : = 1 to 20 do        begin           a[i] : = random(50);           writeln('[', i, '] => ', a[i]);       end;       m : = 1;       for i : = 1 to 20 do           if (a[m] > a[i]) then m : = i;       writeln('[', m, '] => ', a[m]); end.

50зн=50байт

60зн=60байт

1кбайт= 1024байта

1мб=1024кбайта

=> 1мбайт=(1024*1024)байт

1мбайт=1048576 байт

50байт/1048576байт=0,0000476837мбайт

60байт/1048576байт=0,0000572205мбайт 

program xxx;

    var i, n : integer;

                      s : real;

                    a : array [1..20] of real;

begin

  writeln('введите размерность массива n=');

  readln(n);

  write('введите элементы массива а: ');

  for i: =1 to n do

        readln(a[i]);

  writeln('исходный массив а: ');

  for i: =1 to n do

        writeln(a[i]);

  s: =0;

  for i: =1 to n do

      if a[i]> 0 then s: =s+a[i];

  writeln('сумма положительных элементов =', s);

  readln

end.