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

Program primer; const n=100; var a: array[1..n] of integer; i,max: integer; begin writeln('vvedite massiv'); for i: =1 to n do readln(' ', a[i]); max: =a[1]; for i : =1 to n do if (a[i]> a[1]) and (a[i]> 0) then max: =a[i]; writeln('max=',max); readln; end.

Program dannuu; uses crt; const n=3; var   a: array [1..n] of integer;   i,j,min,temp: integer; begin   randomize;   {создание массива}   writeln('элементы массива: ');   for i: =1 to n do       begin           a[i]: =random(101)-50;           write (a[i]: 5);       end;   {сортировка массива}   for i: =1 to n-1  do       begin           min: =i;           for j: =i+1 to n do               if a[min]> a[j] then                   min: =j;           temp: =a[i];           a[i]: =a[min];           a[min]: =temp;       end;   writeln();   {вывод массива}   writeln('результат сортировки: ');   for i: =1 to n do       write(a[i]: 5); end.

Var a : array [1..20, 1..20] of real;     n,i,j: integer;     p: real; begin     write ('введите размерность:   n = ');     readln (n);     writeln ('введите элементы массива: '); for i : = 1 to n do for j : = 1 to n do     begin     write ('a[', i,',', j,'] = ');     readln (a[i, j]);     end; p: = 1; for i : = 1 to n do for j : = 1 to n do if (a[i,j])< 0 then p: =p*a[i,j]; writeln ('произведение всех отр. чисел: ',p: 6: 1); end.