1. На винчестере 20 папок в каждой их них количество файлов…

Var a: array[1… 20] of integer; i, N, max: integer; begin for i: =1 to 20 do begin a[i]: =random (100); if (a[i]<10) then a[i]: =10; end; max: =a[1]; for i: =1 to 20 do if (a[i]>max) then begin max: =a[i]; N: =N+1; end; writeln ('Больший массив=', N); end.