1 . на винчестере 20 папок в каждой их них количество файлов колеблются от 10 до 100. отсортировать папки по кол-ву файлов указать N папки с максимальным кол-вом файлов.

2. ученик Иванов ищет реферат в Интернете . 10 сайтов выдали сылки по теме от 50 до 200 . в каком сайте по номеру ченик быстрее найдет его реферат

помогите пожалуйта СРОЧНО НУЖНО!!!!

1
это какой класс?
10ый наверно

Ответы и объяснения

2013-10-15T12:40:24+00:00
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.