Помогите пожалуйста студентки, массивы Опции

[-Даша-]

1)Ввести 10 целых чисел, вычислить сумму чисел, начиная с минимального до последнего элемента.
2)Сформировать массив [4x6], поменять местами столбец с макс. элементом и столбец с минимальным элементом.
3)Сформировать массив [5x5], найти максимальнй элемент, находящийся выше главной диагонали и минимальный элемент, наход-ся ниже главной дипгонали.


Всем очень признательна заранее за помощь

[Айра]

Запуталась))
все намного проще:

const n=5; // если ты уже точно знаешь, какая размерность у массива, то ее можно задать константой
                // и не пытаться потом спрашивать у пользователя
var a: array[1..n,1..n] of integer;
    max,min,i,j: integer; // максимум, минимум, переменные цикла и больше тебе ничего не надо
begin
  randomize;

  for i:=1 to n do
    for j:=1 to n do
      readln(a[i,j]);

  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
//          a[i,j]:=random(10);  // можно было и чтоб массив сам формировался
          write(a[i,j]:3);
        end;
      writeln;
    end;

  // я так поняла, что элементы, стоящие на диагонали брать не надо
  
  max:=a[1,2];  // тогда это начальное значение максимума, выше диагонали
  min:=a[2,1];   // минимум_ниже

  // я не зря тебя в faq отправила)) там был пример циклов ниже\выше диагоналей
  // этот цикл перебирает элементы только выше нее
  for i:=1 to n do
    for j:=i+1 to n do if a[i,j]>max then max:=a[i,j]; // и ищем максимум давно известным способом

  // а здесь элементы только ниже
    for i:=1 to n do
      for j:=1 to i-1 do if a[i,j]<min then min:=a[i,j];

  writeln('максимум выше диагонали: ',max);
  writeln('минимум ниже диагонали: ',min);
end. // вот и все 

p.s. используй теги pascal\delphi, так понятнее код будет ))

Сообщение отредактировано: Айра - 18.06.2008 12:27