Помогите, пожалуйста, сделать программу.

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

  1. eduard5

    eduard5 Гость

    Дан массив и надо поменять местами диагонали. Н-р:
    Дано:
    5 2 7
    4 6 8
    1 9 3
    Резутат:
    7 2 5
    4 6 8
    3 9 1
    Вот у меня начало.
    Код (Delphi):
    const n=100;
    var
    massiv:array[1..n,1..n] of integer;
    res:array[1..n,1..n] of integer;
    row,column:integer;
    begin
    Randomize;
    writeln('исходный массив');
    for row:=1 to n do begin
    for column:=1 to m do begin
    massiv[row,column]:=random(100);
    write(' ',massiv[row,column]:2);
    end;
    writeln;
    end;
     
  2. hosm

    hosm * so what *

    Регистрация:
    18 май 2009
    Сообщения:
    2.450
    Симпатии:
    7
    а m во внутреннем for с какого потолка взялось? Вы программу на бумажке пишете или прям тут, на форуме?
    Компилировать не умеете?
     
Загрузка...
Похожие Темы - Помогите пожалуйста сделать
  1. limbra
    Ответов:
    3
    Просмотров:
    44
  2. uxbmw3w
    Ответов:
    0
    Просмотров:
    61
  3. GREED
    Ответов:
    1
    Просмотров:
    532
  4. Рая
    Ответов:
    3
    Просмотров:
    788
  5. sonia2000
    Ответов:
    0
    Просмотров:
    958

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