Ответ:
есть программа для такого решения
Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.
Увеличения? начиная с windows vista (windows 7) - восмикратное(800%), до vista (XP и ниже) - 10х (если нажать чуть выше значка 8х)
#include<iostream>#include <stdlib.h>using namespace std;int main(){int a[10], i = 9, n=0;for (i; i >0; i--){ a[i] = rand () % 10 + 1; if ( a[i] % 2 == 0){ n++; } cout << a[i] << endl;}cout << "n" << "=" << n;
}