Сформировать одномерный массив целых чисел М2, состоящий из некратными числу N четным элементам массива М

[Izymka]

1. Після введення з клавіатури одновимірного масиву цілих чисел (у межах знакового цілого типу) вивести на екран відсортовані за спаданням перші k та відсортовані за зростанням останні k елементів масиву.

2. Дане ціле число N. Сформувати одновимірний масив цілих чисел М2, який складається із некратних числу N парних елементів масиву М1.

3. Дано масив дійсних чисел, що містить n елементів. Знищити у масиві найменший за значенням елемент.

помогите пожалуйста!!
у меня 1. получилось немного, но только по убыванию и то всех элементов...

program n_1;
uses WinCRT;
const
max=100;
i:byte=0;
var
m:array[1..max] of integer;
t:integer;
j,n,k:byte;
begin
Write(‘k=’); Read(k);
repeat
i:=i+1;
Write('m[',i,']=');
Read(m[i]);
until (i=max) or (m[i]=0);
if i=max then n:=i
else n:=i–1;
{ sortuvannya }
for i:=1 to n–1 do 
for j:=1 to n–i do
if m[j+1]>m[j] then 
begin
t:=m[j];
m[j]:=m[j+1];
m[j+1]:=t;
end;
WriteLn('Results:');
for i:=1 to n do Write(m[i]:8); 
end.

задание 2 я совсем не могу... а в 3 задании я немогу уничтожить элемент...

 uses crt;
var m:array[1..100] of real;
i:integer;
k,num: integer;
min:real;
begin
clrscr;
write ('k-?  ');readln (k);
for i:=1 to k do begin
write ('m[',i,']= ');
readln(m[i]);
end;
min:=m[1];
for i:=1 to k do
if m[i] <= min then
begin
 min:=m[i];
 num:=i;
end;
writeln ('min= ',min:4:2);
writeln ('# min = ',num);
readln;
end.

очень нужна помощь!!!!!!

[Izymka]

пожалуйста!!!!!!!!!!!

[ИринаForeve]

Украинский хоть немного и можно понять, но до конца не разберешь что нужно...

[Izymka]

1. После ввода с клавиатуры одномерного массива целых чисел (в пределах знакового целого типа) отобразить отсортированы по убыванию первые k и отсортированы по возрастанию последние k элементов массива.

2. Данное целое число N. Сформировать одномерный массив целых чисел М2, состоящий из некратными числу N четным элементам массива М1.

3. Дано массив действительных чисел, содержащий n элементов. Уничтожить в массиве наименьший по значению элемент.


вот так.... очень нужна помощь!!!!

[Sibedir]

Задача 2: (Ну очень простая. От нефиг делать 10 минут написал)

program Project2;

const
  _MAX = 10;
  M1: array [1.._MAX*2] of Integer = (22, 45, 32, 90, 21, 15, 12, 58, 48, 30, 16, 42, 27, 24, 70, 35, 81, 63, 34, 72);

var
  i, j, N: Integer;
  M2: array [1.._MAX] of Integer;

begin
  Write ('M1:');
  for i := 1 to _MAX*2 do Write (' ', M1[i]);
  Writeln;
  Writeln;

  for i := 1 to _MAX do M2[i] := 0;

  Write ('Vvedite N: ');
  Readln (N);
  Writeln;

  Write ('M2:');
  j := 1;
  for i := 1 to _MAX do begin
    if (M1[i*2] / N) <> (M1[i*2] div N) then begin // Proverka na kratnost
      M2[j] := M1[i*2];
      Write (' ', M2[j]);
      j := j + 1;
    end;
  end;
  Writeln;
  Readln;
end.

[ROMA2PVT]

-III-

program matr;
uses
   crt;
var
    mas:array [1..100] of integer;
    i,n,j,min,imin:integer;
begin
randomize;
write('Введите количество элементов: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  end;
writeln;
min:=mas[1];
imin:=1;
for i:=1 to n do
if mas[i]<min then
begin
 min:=mas[i];
 imin:=i;
end;
writeln ('MIN[',imin,']:=',min);
writeln;
for i:=imin to n-1 do
begin
mas[i]:=mas[i+1];
end;
writeln('Массив после удаления: ');
for i:=1 to n-1 do
begin
write(mas[i]:4);
end;
writeln;
 end.

[Izymka]

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

Задача 2: (Ну очень простая. От нефиг делать 10 минут написал)

Спасибо большое!!!!!!!!!!!!!!!!!!!!!!

[Izymka]

и за 3 тью спасибочки!!!!!!!!!!!!!!!!!!!!!!!!! !!!!

[ROMA2PVT]

-II-

program matr;
uses
   crt;
var
    mas,b:array [1..100] of integer;
    i,n,j,kol,k:integer;
begin
randomize;
write('Введите количество элементов: ');
readln(n);
writeln('Исходный массив: ');
for i:=1 to n do
 begin
  mas[i]:=random(10)-5;
  write(mas[i]:4);
  end;
  writeln;
  kol:=0;
  write('Введите число: ');
  readln(k);
  for i:=1 to n do
  if (mas[i] mod k<>0) and (not odd(mas[i])) then
  begin
  inc(kol);
  b[kol]:=mas[i];
  end;
  writeln;
  writeln('Результирующий массив чисел не кратных числу',k);
  for i:=1 to kol do
  begin
  write(b[i]:2,' ');
  end;
  writeln;
  end.

Но чёт суть недопонял.Чётных элементов или элементов с чётными индексами.

[Izymka]

Но чёт суть недопонял.Чётных элементов или элементов с чётными индексами.

Чётных элементов!!)) спасибо за помощь!
посмотрите еще задание 1!! подскажите,плизики!