Создать матрицу A[1..n,1..n] из целых чисел. Сформировать одномерный м

Тема в разделе "Pascal and Delphi", создана пользователем spezzA, 26 ноя 2010.

  1. spezzA

    spezzA Гость

    Помогите дорешить задачу.
    Создать матрицу A[1..N,1..N] из целых чисел. Сформировать одномерный массив, элементы которого - максимальные элементы диагоналей, параллельных побочной диагонали.
    Нужно её дорешить. Создать массив, записать максимумы в массив, потом его вывести.
    Код (Text):
    uses crt;
    var m,i,j,l,max:integer;
    a:array[1..20,1..20]of integer;
    begin
    clrscr;
    write('m=');readln(m);
    randomize;
    Writeln('Ishodnaja matrica:');
    for i:=1 to m do
    begin
    for j:=1 to m do
    begin
    a[i,j]:=random(50)+10;
    write(a[i,j]:4);
    end;
    writeln;
    end;
    for l:=1 to 2*m-1 do
    begin
    if l<=m then{если сама побочная не нужна, то l<m}
    begin
    max:=a[l,1];
    for i:=1 to l do
    for j:=1 to l do
    if (j=l-i+1)and(a[i,j]>max) then max:=a[i,j];
    end
    else if l>m then
    begin
    max:=a[l-m+1,m];
    for i:=l-m+1 to m do
    for j:=l-m+1 to m do
    if (j=l-i+1)and(a[i,j]>max) then max:=a[i,j];
    end;
    writeln('Max na diagonali ',l,' = ',max);
    end;
    readln
    end.
     
  2. XTen

    XTen Active Member

    Регистрация:
    18 сен 2010
    Сообщения:
    26
    Симпатии:
    0
    Готов помочь за денюжку!
    ICQ: 410691984
     
  3. BashOrgRu

    BashOrgRu Well-Known Member

    Регистрация:
    15 мар 2009
    Сообщения:
    78
    Симпатии:
    0
    "диагоналей, параллельных побочной диагонали." это что-то типа:
    1)____2)___3)___4)___5)
    |00x| |0x0| |x00| |000| |000|
    |000| |00x| |0x0| |x00| |000|
    |000| |000| |00x| |0x0| |x00|
    ? Если так, то решу быстро)
     
Загрузка...

Поделиться этой страницей