Treść zadania:
1a.Napisz program losujący elementy do tablicy 10 elementowej;
1b.Napisz funkcję zwracającą ile elementów tablicy było podzielnych przez 7;
1c.Napisz funkcję sprawdzająca czy liczba jest liczba pierwszą (jest podzielna przez 1 i sama siebie);
1d.Napisz funkcję która przejdzie po elementach tablicy i wypisze te które sa liczbami pierwszymi z wykorzystaniem funkcji 1c.
To co udało mi się wyskrobać:
Kod: Zaznacz cały
program zadanie;
uses crt;
const n=10;
var
tab:array[1..n] of integer;
i:integer;
function podzielnosc(a:integer):integer;
begin
end;
begin
clrscr;
randomize;
for i:=1 to n do tab[i]:=random(100)+1;
for i:=1 to n do write(tab[i],);
repeat until keypressed;
end.