Mogłby mi to ktos sprawdzic??
Dane jest ziarno generatora z z zakresu 1..10000. Wygeneruj tablicę A zawierającą 1000 liczb całkowitych
Liczby tablicy łączymy w pary: pierwszą z ostatnią, drugą z przedostatnią, itd. Każdą taką parę sumujemy i sprawdzamy, czy otrzymana suma jest liczbą pierwszą.
Wejście
Pierwszy wiersz wejścia zawiera liczbę całkowitą z z zakresu 1..10000.
Wyjście
Pierwszy wiersz wyjścia powinien zawierać jedną liczbę całkowitą: wyznaczoną ilość sum, które są liczbami pierwszymi. W wierszu drugim należy zapisać najmniejszą z otrzymanych liczb pierwszych lub liczbę 0, gdy żadna z sum nie była liczbą pierwszą.
program tab06;
var
a:array[1..10000] of integer;
d,i,n,sum,min,sump,p: integer;
x:longint;
begin
readln(n);
for i:=1 to n do
readln(a);
begin;
x:=n/2;
for i:=0 to x do
begin;
sum:=a+a[n-1-i];
end;
end;
for i:=1 to n do
p:=0;
begin;
for d:=2 to trunc(sqrt(sum)) do
begin;
if (sum mod d)=0 then
p:=1;
break;
end;
end;
begin;
sump:=0;
if p=0 then
sump:=sump +1
else
writeln(a, ' nie jest liczba pierwsza');
end;
begin;
min:=1;
if sum<min then
min:=sum;
if sump=0 then
min:=0;
end;
writeln('ilosc sum, ktore sa liczbami pierwszymi to',sump);
writeln('najmniejsza suma ktora jest liczba pierwsza to',min);
readln;
end.