1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем 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
    Вот у меня начало.
    Код:
    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
    Просмотров:
    244
  2. Sniff
    Ответов:
    1
    Просмотров:
    192
  3. komodikus
    Ответов:
    11
    Просмотров:
    634
  4. limbra
    Ответов:
    3
    Просмотров:
    350
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    581

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