//Сегодня буду скучным //Pascal ABC.NET v3.1 сборка 1219
Const n=20;
Var ar:array[1..n] of integer; i,s,k,min,j:integer; begin randomize; min:=2147483647; for i:=1 to 10 do ar[i]:=random(-15,21); for i:=11 to 17 do ar[i]:=i*6; for i:=18 to n do readln(ar[i]); writeln('Array:'); for i:=1 to n do write(ar[i]:4); writeln; i:=2; while i<>n+2 do begin s:=s+ar[i]; i:=i+2; end; writeln('Sum=',s); for i:=1 to n do if ar[i]>0 then k:=k+1; writeln('Count of positive elements=',k); for i:=10 to n do if min>ar[i] then min:=ar[i]; writeln('Min=',min); for i:=1 to n-1 do for j:=i+1 to n do if ar[i]<ar[j] then begin k:=ar[i]; ar[i]:=ar[j]; ar[j]:=k; end; writeln('Sorted array:'); for i:=1 to n do write(ar[i]:4); end.
