Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.01.2012, 20:27   #1
Виндовс 7
Пользователь
 
Регистрация: 04.12.2011
Сообщений: 12
По умолчанию Двумерный массив(матрица).Кое-что не могу понять и сделать

Дано массив А(М;М).найти количество елем. расположенных на каждой параллеле до главной диагонали и на самой диагонали.Объединить их в массив.Елементы А(1;1) и А(М;М) исключить из рассмотрения.
Не могу понять как объединить в массив и как исключить из рассмотрения елементы.
Вот мои код(сделал то что могу)
Код:
uses Crt;
var A:array[1..30,1..30] of byte;
    i,j,n,k:integer;
begin
randomize;
write('Введите порядок матрицы n=');
readln(n);
for i:=1 to n do  begin
for j:=1 to n do       begin
A[i,j]:=random(30);
write(A[i,j]:5);
                  end;
writeln;
                       end;k:=0;
writeln;
for i:=1 to n do
begin
for j:=1 to i do
begin
inc(k);
write(A[i,j]:5);
end;
writeln;
end;
writeln;
writeln('k=',k);
end.
Виндовс 7 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу понять как сделать с задачей Sylar9 Общие вопросы C/C++ 3 04.12.2011 14:45
не могу понять,что нужно дописать ТатьянаП Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 18.10.2010 15:43
не могу понять что не так aferistz Общие вопросы C/C++ 5 23.09.2010 02:21
не могу понять, что за скрипт ZET78 JavaScript, Ajax 0 18.08.2010 00:10
Не могу понять, что требуется? Shuraken Общие вопросы Delphi 2 10.08.2007 11:41