Найти сумму всех элементов двумерного массива, расположенных на главной диагонали

@Balashovec · Регистрация: 01.03.2009

Author24 — интернет-сервис помощи студентам

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

пишите всю программу ..........заранее благодарю...........

@pascal65536 · 01.03.2009, 21:35

Третья

Pascal

Uses CRT;
 
Var A : Array[1..5,1..5] of Integer;
    I,J,S:Integer;
 
Begin
     S:=0;
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             A[I,J]:=Random(10);
 
     For I:=1 To 5 Do
     Begin
         For J := 1 To 5 Do
             Write(A[I,J]:3);
         WriteLn;
     End;
 
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             If I=J Then S:=S+A[I,J];
             
     WriteLn('Сумма всех элементов расположенных на главной диагонали = ',S);
 
End.

@schdub · 02.03.2009, 08:20

Сообщение от pascal65536

Третья

Pascal

     ...   
 
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             If I=J Then S:=S+A[I,J];
 
     ...

Так сильно большой оверхид. Конечно, при количестве столбцов/строк в матрице равной 5, это не очень заметно... Нужно заменить этот кусок кода на что-то вроде:

Pascal

1 2	For I:=1 To 5 Do S:=S+A[I,I];

То есть, прога у нас получиться такая:

Pascal

Uses CRT;
 
Var A : Array[1..5,1..5] of Integer;
    I,J,S:Integer;
 
Begin
     S:=0;
     For I:=1 To 5 Do
         For J := 1 To 5 Do
             A[I,J]:=Random(10);
 
     For I:=1 To 5 Do
     Begin
         For J := 1 To 5 Do
             Write(A[I,J]:3);
         WriteLn;
     End;
 
     For I:=1 To 5 Do
         S:=S+A[I,I];
             
     WriteLn('Сумма всех элементов расположенных на главной диагонали = ',S);
 
End.

@Balashovec · 02.03.2009, 19:18 **[ТС]**

xitNightMare, огромное спасибо.......
xitNightMare, помоги ещё задачки решить особенно 2ую а то я даже не знаю что такое протабулировать

@Balashovec · 02.03.2009, 19:18 **[ТС]**

pascal65536, тоже благодарю спасибо.......

@pascal65536 · 02.03.2009, 21:26

Сообщение от xitNightMare

Так сильно большой оверхид. Конечно, при количестве столбцов/строк в матрице равной 5, это не очень заметно... Нужно заменить этот кусок кода на что-то вроде:

Pascal

1 2	For I:=1 To 5 Do S:=S+A[I,I];

Согласен на все 100%, но для топикстартера мой код более очевиден.

@Balashovec 0 / 0 / 0 Регистрация: 01.03.2009 Сообщений: 57
		1
	Найти сумму всех элементов двумерного массива, расположенных на главной диагонали 01.03.2009, 19:03. Показов 3489. Ответов 5 Метки нет (Все метки) Помогите пожалуйста решить задачки на массив в паскале : 3-Найти сумму всех элементов двумерного массива целых чисел размерности 5*5,расположенных на главной диагонали. помогите пожалуста я новичёк пишите всю программу ..........заранее благодарю........... 0

@Balashovec 0 / 0 / 0 Регистрация: 01.03.2009 Сообщений: 57
	02.03.2009, 19:18 [ТС]	4
	xitNightMare, огромное спасибо....... xitNightMare, помоги ещё задачки решить особенно 2ую а то я даже не знаю что такое протабулировать 0

	02.03.2009, 21:26

Опции темы