Задачи на программирование.Паскаль.

[cjcezar]

Очень очень прошу помочь мне с этими задачами. Реально не хватает времени все сделать, да и у меня с этим проблемы, т.к. предмет не профильный. Сам медик, не знаю зачем дают нам это. Но прошу понять и выручить по человечески

1.Дан одномерный вещественный массив А(N) . Определить, сколько раз в этом массиве меняется знак.

2. Дан одномерный вещественный массив А(N) . Поменять местами минимальный элемент этого массива и последний.

3. Дан одномерный вещественный массив А(N) . Поменять местами минимальный элемент этого массива и максимальный.

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

[val_nnm]

В порядке исключения

const maxN = 100;
var
  a:array[1..maxN] of integer;
  na:integer;
  i:integer;
  scount: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;
  scount := 0;
  for i := 1 to na-1 do
    if ((A[i]>=0)and(A[i+1]<0)) or ((A[i]<0)and(A[i+1]>=0)) then
      scount := scount+1;
  writeln('Изменений знака:',scount);
End.

const maxN = 100;
var
  a:array[1..maxN] of integer;
  temp:integer;
  na:integer;
  i:integer;
  minIndex: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;
  
  minIndex := 1;
  for i := 2 to na do
    if (a[i]<a[minIndex]) then
      minIndex := i;

  temp := a[na];
  a[na] := a[minIndex];
  a[minIndex] := temp;

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

const maxN = 100;
var
  a:array[1..maxN] of integer;
  temp:integer;
  na:integer;
  i:integer;
  minIndex:integer;
  maxIndex: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;
  
  minIndex := 1;
  maxIndex := 1;
  for i := 2 to na do Begin
    if (a[i]<a[minIndex]) then
      minIndex := i;
    if (a[i]>a[maxIndex]) then
      maxIndex := i;
  end;

  temp := a[maxIndex];
  a[maxIndex] := a[minIndex];
  a[minIndex] := temp;

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

const maxN = 100;
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;
  for i := 1 to na do
    if ((Abs(a[i]) mod 10)=7) then begin
      nb := nb + 1;
      b[nb] := a[i];
    end;

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

[cjcezar]

val_nnm Друг! Спасибо! я тебе очень благодарен! Если нужно я тебе даже денюжку на телефон положу!