массивы в паскале

[афродита]

1.Даны целочисленные массивы X и Y с разным количеством элементов. Найти минимальные элементы этих массивах среди элементов, имеющих четный индекс.

2.Заполнить массив рядом натуральных чисел, расположив их закручивающейся спиралью по часовой стрелке.
1 2 3 4 5
10 9 8 7 6
11 12 13 14 15
20 19 18 17 16

3.Дан двумерный массив вещественных чисел из 4 столбцов и 3 строк. Поменять местами первый столбец и столбец и столбец, где находится максимальный элемент массива. Вывести массив по строкам до и после перестановки.

4.Найти все различающиеся элементы целочисленной квадратной матрицы размерностью nxm.

[p51x]

И чаво? За вас решают во фрилансе, а тут помогают.

[Google2010]

{заполнить массив змейкой}
const m=5;n=5 ;

  var a:array[1..100,1..100] of integer;
  i,j,k:integer;
begin
k:=2;j:=1;
for I := 1 to n  do
  begin
  if i mod 2 <>0 then begin
  dec(k);
  while j<=m do begin

 a[i,j]:=k;inc(j); inc(k) end
  end

     else begin
       dec(k);

  while j>=1 do begin

 a[i,j]:=k;dec(j); inc(k); end;
  end; end;
  for I := 1 to n do
    begin
      for j := 1 to m do
        write(a[i,j]:4);
     writeln;
    end;
    readln;
end.
{минимальные среди четных индексов}
const m=5;n=7 ;

  var a,b:array[1..100] of integer;
  i,k:integer;
begin
 randomize;
   Writeln('1 array');
for I := 1 to n  do
  begin
   a[i]:=random(20)+1-10;
   write(a[i]:4);
  end;
  writeln;
  Writeln('2 array');
  for I := 1 to m  do
  begin
   b[i]:=random(30)+1-10;
   write(b[i]:4);
  end;
   writeln;
  k:=2;
  for I := 2 to n  do
  begin
   if (i mod 2=0) and (a[i]<a[k]) then k:=i ;
  end;
  writeln('min 1 array:',a[k]);
    k:=2;
  for I := 2 to m  do
  begin
   if (i mod 2=0) and (b[i]<b[k]) then k:=i ;
  end;
  writeln('min 2 array:',b[k]);
    readln;
end.
{поменять местами 1 столбец и столбец с max элементом}
  const m=5;n=5 ;
var a:array[1..100,1..100] of integer;
  i,j,jm,im,k:integer;
begin
 randomize;
   Writeln('matrix');
for I := 1 to n  do begin
for j := 1 to m do
begin
   a[i,j]:=random(20)+1-10;
   write(a[i,j]:4);
  end;
  writeln;
  end;
    im:=1;
    jm:=1;
for I := 1 to n  do
for j := 1 to m do
   if a[i,j]>a[im,jm] then begin im:=i;jm:=j;end;
 if jm<>1 then begin
for I := 1 to n  do
  begin
  k:=a[i,1];
  a[i,1]:=a[i,jm];
  a[i,jm]:=k;
  end ;

  Writeln('new matrix');
for I := 1 to n  do begin
for j := 1 to m do
 write(a[i,j]:4);
  writeln;
  end;end
else writeln('max in 1 column');
readln;
end.
{вывести различные элементы матрицы}
const m=5;n=5 ;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
  i,j,h,k:integer;
  t:boolean;
begin
 randomize;
 Writeln('matrix');
for I := 1 to n  do begin
for j := 1 to m do
begin
   a[i,j]:=random(20)+1-10;
   write(a[i,j]:4);
  end;
  writeln;
  end;
    k:=0;
 for I := 1 to n do
 for j := 1 to m do
 begin
  t:=true;
 for h := 1 to k do
   if a[i,j]=b[h] then begin
    t:=false;break;end;
 if t then begin inc(k);b[k]:=a[i,j];end;
end;
Writeln('different');
for I := 1 to k  do begin
 write(b[i]:4);
  end;
readln;
end.

[Stilet]

 var
  x:array[1..10] of integer;
  y:array[5..18] of integer;
  q,a,s:integer;
begin
{1.Даны целочисленные массивы X и Y с разным количеством элементов.
 Найти минимальные элементы этих массивах среди элементов, имеющих четный индекс.}
 a:=maxint;s:=maxint;
 for q:=1 to 10 do begin
  x[q]:=random(100); write(x[q]:5);
  if (q mod 2=0)and(a>x[q]) then a:=x[q];
 end; writeln;writeln(a);
 for q:=5 to 18 do begin
  y[q]:=random(100); write(y[q]:5);
  if (q mod 2=0)and(s>y[q]) then s:=y[q];
 end; writeln;writeln(s);

 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

Поменять местами первый столбец и столбец и столбец, где находится максимальный элемент массива.

О это уже было... Жаль ссылки не помню.

[Grag]

Сообщение от афродита

2.Заполнить массив рядом натуральных чисел, расположив их закручивающейся спиралью по часовой стрелке.
1 2 3 4 5
10 9 8 7 6
11 12 13 14 15
20 19 18 17 16

Так все таки "закручивающейся спиралью" или "змейкой", как в твоем приведенном примере??? Если спиралью, то есть готовая программка, могу поделиться...
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[афродита]

Grag, во 2 задаче, надо "закручивающей спиралью"

[RUSt88]

вы че творите? чистой воды потворство халявщикам

[Grag]

Сообщение от афродита

Grag, во 2 задаче, надо "закручивающей спиралью"

Если еще актуально, стучись, помогу...