Question

Witam!

Potrzebuję pomocy w pascalu.

Mam napisać program gdzie dana jest liczba n<1 i ciąg n liczb całkowitych. Program ma wypisywać liczby pierwsze.

Z góry dziękuję! ;)

Answer 1

Raczej n>1. Ponieważ ilość liczb całkowitych jest liczbą naturalną. A więc do rzeczy:
program LiczbaPierwsza;
uses CRT;
var
  n,i,j:integer;
  t1: array[0..100] of Integer;
  t2: array [0..100] of Integer;
begin
  clrscr;
  write('Podaj ilosc liczb ');
  readln(n);
   for i:=1 to n do
       begin
       writeln('Podaj ',i,' liczbe');
       readln(t1[i]);
       end;
   for j:=1 to n do
       begin
       i:=2;
       while ((t1[j] mod i)<>0)  and (i<t1[j]) do i:=i+1;
       if i=t1[j] then
       t2[j]:=t1[j];
       end;
writeln('Liczby pierwsze to ');
   for i:=1 to n do
       begin
       if t2[i]<>0 then
          begin
          write(t2[i],' ');
          end;
       end;
  readln;
end.