Вывести на экран индексы тех элементов одномерного массива, которые являются простыми числами

Составьте программу вывода на экран индексов элементов одномерного массива b(n) значение которых суть простые числа. С помощью процедуры.
2 ответа

uses crt;
const n=20;
var b: array [1..n] of integer;
    i,j,kd: integer;
begin
randomize;
writeln('Дан массив');
for i:=1 to n do
    begin
    b[i]:=random(101);
    write(b[i]:4);
    end;
writeln;
writeln('Индексы простых чисел');
for i:=1 to n do
    begin
    kd:=0;
    for j:=2 to b[i]-1 do
        if b[i] mod j=0 then inc(kd);
    if kd=0 then write(i,' ');
    end;
readkey
end.
Vova2, посмотри, так подойдет? (извини, процедура выпала из поля зрения)
uses crt;
const n=20;
var b: array [1..n] of integer;
    i: byte;
 
procedure IsSimple (n: integer; nn: byte);
var j,kd: integer;
begin
kd:=0;
for j:=2 to n-1 do
    if n mod j=0 then inc(kd);
if kd=0 then write(nn,' ');
end;
 
begin
randomize;
writeln('Дан массив');
for i:=1 to n do
    begin
    b[i]:=random(101);
    write(b[i]:4);
    end;
writeln;
writeln('Индексы простых чисел');
for i:=1 to n do
    IsSimple (b[i],i);
readkey
end.


Огромное спасибо )))