Задать два массива целых чисел: А(12) и В(6). Найти минимальные элементы этих массивов и поменять....

[eragon_ua]

Ребята, помогите с массивом....

Задать два массива целых чисел: А(12) и В(6). Найти минимальные элементы этих массивов и поменять их местами с последними элементами. Поиск минимального элемента выполнить в процедуре. Вывести на экран массивы и результаты.

[Alt_Shift]

а что именно вам непонятно? Как найти минимум или как поменять эллементы местами?
минимум находим перебором чисел, представляя что первый эллемент и есть минимум, если следующий эллемент меньше- то он становится min и так далее. Менять местами можно по принципу
p=а[2](минимальный эллемент);
b=a[12];
a[2]=b;
a[12]=p;
вывести на экран думаю сами догадаетесь как

[eragon_ua]

Это я уже сделал...

Только вот не очень хорошо понимаю процедуры. Мне легче сделать так, а потом уже разбираться с процедурами. Как мне в процедуру влепить поиск минимального элемента ?

const
 n=12;
 m=6;
var
 arr1: array[1..n] of integer;
 min1, i, buf1: integer;
 arr2: array[1..m] of integer;
 min2, k, buf2: integer;
begin
 min1:=1; min2:=1;
 writeln('Первый массив: ');
  for i:=1 to n do
   begin
    arr1[i]:=random(100);
    write(arr1[i], ' ');
     if arr1[i]<arr1[min1] then min1:=i;
   end;
 buf1:=arr1[min1];
 arr1[min1]:=arr1[12];
 arr1[12]:=buf1;
 writeln;
 writeln('Переделанный первый массив: ');
  for i:=1 to n do
   write(arr1[i], ' ');
 writeln;
 writeln('Второй массив: ');
  for k:=1 to m do
   begin
    arr2[k]:=random(100);
    write(arr2[k], ' ');
     if arr2[k]<arr2[min2] then min2:=k;
   end;
 buf2:=arr2[min2];
 arr2[min2]:=arr2[6];
 arr2[6]:=buf2;
 writeln;
 writeln('Переделанный второй массив: ');
  for k:=1 to m do
   write(arr2[k], ' ');
end.

[Alt_Shift]

омг...сори, я с++ учу Процедура это что то аналогичное функции на си?

[eragon_ua]

Я пока только Паскаль учу( и выучить никак не могу) . А что там на си, я без понятия...

[malinoff]

http://pascal.guti.ru/procedure.html