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

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

  1. eduard5

    eduard5 Гость

    Репутация:
    0
    Дан массив и надо поменять местами диагонали. Н-р:
    Дано:
    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 *

    Репутация:
    0
    Регистрация:
    18 май 2009
    Сообщения:
    2.442
    Симпатии:
    8
    а m во внутреннем for с какого потолка взялось? Вы программу на бумажке пишете или прям тут, на форуме?
    Компилировать не умеете?
     
Загрузка...
Похожие Темы - Помогите пожалуйста сделать
  1. Rina
    Ответов:
    1
    Просмотров:
    194
  2. Sniff
    Ответов:
    1
    Просмотров:
    166
  3. komodikus
    Ответов:
    11
    Просмотров:
    519
  4. limbra
    Ответов:
    3
    Просмотров:
    301
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    529

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