pascal - обработка массивов

[Lexey_fan]

Доброго дня многоуважаемые знатоки Pascal, не могли бы вы помочь с решением задач:
--Удалить из массива целых чисел все элементы, являющиеся простыми числами.
--Вычислить сумму элементов вещественного массива, находящихся до минимального и после максимального элементов. Создать функции для определения номеров минимального и максимального элементов, а также для вычисления суммы элементов.

По первому вопросу, благодаря учебникам и т.п. нашёл как получать простые числа и выводить их(при этом все непростые числа удаляются)
можно ли как то переработать данный код программы

const
N = 255;
type
SetOfNumber = set of 1..N;
var
n1,next,i: integer; 
BeginSet, 
PrimerSet: SetOfNumber; 
begin
BeginSet:= [2..N]; 
PrimerSet:= [1]; 
next:= 2; 
while BeginSet <> [] do 
begin
n1:= next; 
while n1 <= N do
begin
Exclude(BeginSet,n1);
n1:= n1+next 
end; 
Include(PrimerSet,next);
repeat
inc(next)
until (next in BeginSet) or (next > N)
end; 
for i:= 1 to N do
if i in PrimerSet then Write(i:8);
WriteLn
END.

По второму даже мыслей не приходит!
Заранее огромное спасибо тем кто откликнется!

[GetMax]

Удалить из массива целых чисел все элементы, являющиеся простыми числами.

    //NN - Размерность массива
     N1 := NN;
     i := 1;
     while i <= N1 do
     Begin
       if (Arr[i] in PrimerSet) then
       Begin
         for j := i to N1-1 do
           Arr[j] := Arr[j+1];
         dec(N1);
       End
       else
         inc(i)
     End;

Массив создадите сами.

[tools]

по второму, возможно, помогу Вам:

uses crt;

const
	N=8;
type
	my_arr = array[1..N] of Real;
var
	i,j: Integer;
	arr : my_arr;

procedure printArr(const arr : my_arr);
var
	i:Integer;
begin
	for i:=1 to N do
		writeln(arr[i]:5:2);
end;

function maxElemIndex(const arr: my_arr):Integer;
var
	max_elem: Real;
	ind : Integer;
begin
	max_elem:= arr[1];
	ind:= 1;
	for i:=2 to N do
	begin
		if arr[i] > max_elem then
		begin
			max_elem:=arr[i];
			ind:= i;
		end; 
	end;
	maxElemIndex:= ind;
end;

function minElemIndex(const arr:my_arr):Integer;
var
	min_elem:Real;
	ind : Integer;
begin
	min_elem:= arr[1];
	ind:= 1;
	for i:=2 to N do
	begin
		if arr[i] < min_elem then
		begin
			min_elem:= arr[i];
			ind:= i;
		end; 
	end;
	minElemIndex:= ind;
end;

function sumArrayElems(const arr : my_arr):Real;
var
	sum:Real;
	i,j,k:integer;
begin
	sum:= 0.0;
	i:= minElemIndex(arr); 
	j:= maxElemindex(arr);
	if (i>j) then
	begin
		for k:=1 to N do
			sum:= sum+arr[k];
		sumArrayElems:= sum;
	end
	else
	begin
		for k:=0 to i-1 do
			sum:= sum+arr[k];
		for k:=j+1 to N do
			sum:= sum+arr[k];
		sumArrayElems:= sum;
	end;
end;

begin
	clrscr;
	Randomize;
	for i:=1 to N do
		arr[i]:= (random+1.12)+random*3.14;
	printArr(arr);
	writeln;
	writeln('Sum of elems: ', sumArrayElems(arr):4:2);
	readln;
end.

[s-andriano]

По первому:
1. В условии нет указания на то, что встречающиеся в массиве числа должны быть непременно меньше 255. Значит, даже в принципе эта программа не может удовлетворять условиям задачи.
2. Сама программа написана неправильно. Т.е. содержит ошибки.

[Lexey_fan]

спасибо, очень выручили, что касается первой задачи, к сожалению не всё понимаю, не могли бы подсказть, дано работаю и пишу на vba а по паскалю жена попросила помочь, часть заданий сделал, то что не смог попросил помощи тут((

[tools]

Вы алгоритм решета Эратосфена (то,что Вы взяли из книги для первого задания) найдите и разберите. Алгоритм крайне прост как в понимании, так и реализации. Необязательно использовать множества в Паскале, хотя это один из вариантов, можете сделать через массивы.