Uses Crt; Var A:array[1..256] of integer; i,iMin,N,B:integer; Begin ClrScr; Randomize; Write('N = ');ReadLn(N); Write('A(',N,'):'); iMin:=1; For i:= 1 to n do Begin A[i]:=random(21)-10; Write(' ',A[i]); if A[i] < A[iMin] then iMin:=i; End; WriteLn; WriteLn('Min(A) = ',A[iMin],'[',iMin,']'); Write('Min = ');ReadLn(i); B:=A[i]; A[i]:=A[iMin]; A[iMin]:=B; Write('A(',N,'):'); For i:= 1 to n do Write(' ',A[i]); ReadKey End.
Алгоритм подсчета числа и суммы элементов int z[20]; int s=0,n=0; for(int i=0;i<20;i++) if(z[i]<8&&z[i]>2) { n++; s+=z[i]; } cout<<"sum="<<s<<", num of elem="<<n;