Var a:array[1..20] of integer;
n,i:integer;
begin
for i:=1 to 20 do begin
a[i]:=random(-150,1000);
if (a[i] mod 5=0) and (a[i] mod 2<>0) then n+=1;
write(a[i],' ');
end;
writeln();
writeln('Искомых элементов: ',n);
end.
40*60=2400
2400*1=2400 байт на страницу
4 Гб=4096 Мб=4194304 Кб=4294967296 байт
4294967296:2400 примерно = 1789570 страниц
1789570:100=17895.7 см
Например так
#include <iostream>
#include <math.h>
using namespace std;
int main(void)
{
int n,count=1,i=2;
cin>>n; int a[n+1]; a[0]=2;
while(count<n)
{
bool b=true;
for(int j=0;j<count;j++)
if(a[j]>sqrtl(i)+1) break;
else
{
if(i\%a[j]==0) b=false;
if(b) {a[count]=i; count++;}
i++;
}
}
for(int i=0;i<n;i++) cout<<a[i]<<" ";
return 0;
}
ускорил работу еще немного