Обработка двумерных массивов Pascal ABC
 

помогите решить программку,не сильно мудреную):tehnari_ru_837:

Здравствуйте.
Вводят меня в ступор заявления типа (сделайте за меня, здесь легко).
Или
Если человек в состоянии определить степень сложности задачи то он должен как минимум иметь представление о том как она решается или сам уже решил её и на основании этого сделал вывод о сложности поставленной задачи.
В любом случаи явно человек в помощи не нуждаится.

Так зачем выкладывать такую немудреную задачу?
Варианты ответа.
А) Проверить возможности других пользователей.
Б) Ну не солидно барину такой задачкой озадачиваться.
В) Просто лень, пусть бездельники решают.
Г) Другой вариант.

в)просто лень,но никого не считаю бездельниками, т.к. я сам не могу решить эту задачу, ибо мне не был дан сей дар природы решать такие задачи(или я в школе не много проходил):D
tehno015

Тут надо начинать из далека.
Опустим такие вещи как отсутствие в условии описания способа ввода значений исходной матрицы (это я так понимаю на усмотрение решающего).



Разбор условия.
Первое предложение.

Алгоритм формирования одномерного массива считаю вообще нераскрытым в условии задачи. Что за диагональные элементы? В какой последовательности их брать? Из каких диагоналей (параллельных главной или неглавной диагонали)?


Второе предложение.
(след матрицы) это что такое понятие или сокращение? Ели под (след матрицы) подразумевается просто сумма всех элементов одномерного массива то это предложение полностью понятно. И возможна его программная реализация. Но подозреваю что здесь что то недосказано.

Третье предложение.
Тут загвоздка в выражении (разделить на полученное значение) что за значение в результате чего мы его должны были получить.

Последнее не допредложение.
И что за общепринятый вид такой всю жизнь вывожу как хочу. Может, что-то, я в жизни пропустил, есть какой то стандарт в этой области (Пример бы, хотя бы посмотреть).
Отсутствие точки наталкивает на мысль что текст задачи частично утерян (остается только гадать в результате чего). А там наверно самое важное.

Но если текст не утерян и это вся задача то.
То составителю задачи крепкая двойка по педагогике.tehno013 Тут надо приводить в порядок с начала мысли задающего. Бардак.tehno028

P.S.
Конечно спасибо большое за откровенность. Ну прям шокирует. :tehnari_ru_948:

вот я и сам не понял о чем это...
tehno004

может это:
const n=12;
var a:array[1..n,1..n] of real;
b:array[1..n] of real;
sl:real;
i,j:integer;

begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:6:0);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if i=j then b[i]:=a[i,j];
sl:=0;
for i:=1 to n do
sl:=sl+b[i];
writeln('Sled:',sl);
for i:=1 to n do
for j:=1 to n do
if i mod 2= 0 then a[i,j]:=a[i,j]/sl;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:6:2);
writeln;
end;
end.

2interacia
Коллега, мне кажется, Вы излишне придирчивы. Во всяком случае, по сравнению с теми перлами и ошибками, которые, судя по нашему форуму, частенько встречаются в методичках, это еще более ли менее.
Если тип диагонали не указан, то следует понимать, как "главная диагональ"
След матрицы — Википедия Дык ясен пень, на полученный шпур (след) и надо делить.
Ну, это уж совсем не по делу. Понятно, что имеется в виду отображение матрицы в виде таблицы (строки-столбцы), а не, например, так: a[1,1]=5; a[1,2]=0; a[1,3]=18 и т.д.

2БаирАбушеев
Ну что же - выложенный код в принципе правилен, во всяком случае явных ошибок не видно. Правда, не сказать, чтобы особо сделан по уму: ну вот что это такое за:
когда ровно то же получается в одну строчку:

for i:=1 to n do b[i]:=a[i,i];

Но это уже так, не по сути.