Дан одномерный целочисленный массив А(N)

[cjcezar]

Снова нужна Ваша помощь, уважаемые мною люди. Будте любезны и добры помочь мне - студенту-медику, решив пару задачек и позволить выделить больше времени на изучение латинского языка и анатомии

1. Дан одномерный целочисленный массив А(N) . Составить одномерный массив В из элементов массива А, меньших их среднего арифметического значения. Полученный массив В отсортировать по неубыванию значений его элементов.

2. Дан одномерный целочисленный массив А(N) . Определить сумму элементов этого массива, являющихся простыми числами.

3. Дан одномерный целочисленный массив А(N) . Составить одномерный массив В из номеров элементов массива А, являющихся простыми числами.

[val_nnm]

1)

const maxN = 100;
var
  a:array[1..maxN] of integer;
  b:array[1..maxN] of integer;
  na:integer;
  nb:integer;
  i:integer;
  s:real;
  flag:boolean;
  t:integer;

Begin
  write ('n=');
  read (na);
  if ((na>maxN)or(na<=0)) then Begin
    writeln('неправильное n');
    exit;
  end;

  For i:=1 to na do Begin
    write('A[',i,']=');
    readln(A[i]);
  end;


  writeln;
  writeln('Исходный массив:');
  for i := 1 to na do Begin
    write(a[i]:5,' ');
  end;
  writeln;
  
  s := 0; { Находим среднеарефметическое }
  for i := 1 to na do
    s := s + a[i];
  s := s / na;

  writeln('Среднее арифметическое s=',s:5:3);

  nb := 0; { Формируем массив B }
  for i := 1 to na do
    if (a[i]<s) then begin
      nb := nb + 1;
      b[nb] := a[i];
    end;

  flag := true; { Сортируем массив простыми обменами }
  while (flag) do Begin
    flag := false;
    for i := 1 to nb-1 do
      if (B[i]>B[i+1]) then Begin
        t := B[i];
        B[i] := B[i+1];
        B[i+1] := t;
        flag := true;
      end;
  end;

  writeln;
  writeln('Результат:');
  for i := 1 to nb do Begin
    write(b[i]:5,' ');
  end;
End.

2)

const maxN = 100;

function isPrime(X: integer): boolean;
var i: integer;
    maxI:integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if (not odd(x)) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     maxI := Trunc(sqrt(x));
     while i <= maxI do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;


var
  a:array[1..maxN] of integer;
  na:integer;
  i:integer;
  s:longint;

Begin
  write ('n=');
  read (na);
  if ((na>maxN)or(na<=0)) then Begin
    writeln('неправильное n');
    exit;
  end;

  For i:=1 to na do Begin
    write('A[',i,']=');
    readln(A[i]);
  end;


  writeln;
  writeln('Исходный массив:');
  for i := 1 to na do Begin
    write(a[i]:5,' ');
  end;
  writeln;
  
  s := 0; { Находим сумму элементов этого массива, являющихся простыми числами. }
  for i := 1 to na do
    if (isPrime(A[i])) then
      s := s + a[i];

  writeln('Сумма элементов этого массива, являющихся простыми числами. s=',s);
End.

3)

const maxN = 100;
function isPrime(X: integer): boolean;
var i: integer;
    maxI:integer;
Begin
     isPrime:=false;
     if x<2 then Exit;
     if (not odd(x)) and (x<>2) { проверяем на чётность  }
          then exit;
     i:=3;
     maxI := Trunc(sqrt(x));
     while i <= maxI do { проверяем только нечётные }
     begin
          if x mod i = 0 then Exit;
          inc(i,2);
     end;
     isPrime:=true;
End;


var
  a:array[1..maxN] of integer;
  b:array[1..maxN] of integer;
  na:integer;
  nb:integer;
  i:integer;

Begin
  write ('n=');
  read (na);
  if ((na>maxN)or(na<=0)) then Begin
    writeln('неправильное n');
    exit;
  end;

  For i:=1 to na do Begin
    write('A[',i,']=');
    readln(A[i]);
  end;

  writeln;
  writeln('Исходный массив:');
  for i := 1 to na do Begin
    write(a[i]:5,' ');
  end;
  writeln;

  nb := 0; { Формируем массив B }
  for i := 1 to na do
    if (isPrime(A[i])) then Begin
      nb := nb + 1;
      b[nb] := i;
    end;

  writeln;
  writeln('Результат:');
  for i := 1 to nb do Begin
    write(b[i]:5,' ');
  end;
End.

Функция проверки простоты числа взята из поста уважаемого Serge_Bliznykov (http://www.programmersforum.ru/showthread.php?t=173065) за что ему спасибо.

[cjcezar]

Сообщение от val_nnm

Функция проверки простоты числа взята из поста уважаемого Serge_Bliznykov (http://www.programmersforum.ru/showthread.php?t=173065) за что ему спасибо.

И тебе и ему спасибо ОГРОМНОЕ!