Дана последовательность из n целых чисел. Найти произведение индексов простых чисел....

Question

Дана последовательность из n целых чисел. Найти произведение индексов простых чисел. Программа на Паскаль.

Answer 1

uses crt;
var n,t,i,j,mult:integer;
flag:byte;
begin
writeln('Input "n" and elements of array: ');
read(n);
mult:=1;
for i:=1 to n do
begin
flag:=1;
read(t);
if t mod 2 = 0 then
begin
j:=3;
while jdo
begin
if t mod j = 0 then
begin
flag:=0;
break;
end;
inc(j,2);
end;
end;
if flag=1 then
mult:=mult*i;
end;
writeln(mult);
end.