|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вывести на экран (в одну строку)
а) все элементы побочной диагонали массива, начиная с элемента, расположенного в правом верхнем углу;
б) все элементы побочной диагонали массива, начиная с элемента, расположенного в левом нижнем углу. Помогите пожалуйста )) |
#2
|
||||
|
||||
Нашествие студиусов!
Код:
Const N = 5; Var Arr: Array[1..N,1..N] of integer; i,j: Integer; begin for i := 1 to N do begin for j := 1 to N do begin Arr[i,j] := Random(100); Write(Arr[i,j]:3); end; WriteLn; end; for i := 1 to N do WriteLn(Arr[i,N-i+1]); WriteLn; for i := N downto 1 do WriteLn(Arr[i,N-i+1]); ReadLn; end. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |