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

@Stud14 · Регистрация: 16.12.2013

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

1)Задача
Найти сумму всех элементов двумерного массива целых чисел размерностью 5*5, расположенных на главной диагонали. Заполнение массива осуществить с клавиатуры.

2)Программа

Pascal

Program mass 5*5; {название программы}
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.

@ildwine · 16.12.2013, 17:41

Все кроме первой строки верно. Такое имя программы недопустимо.

Pascal

1	Program mass55;

Добавлено через 2 минуты
Я бы, правда, сделал в одном цикле всё, но это не существенно:

Pascal

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

@Stud14 · 16.12.2013, 17:44 **[ТС]**

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

Все кроме первой строки верно. Такое имя программы недопустимо.

Pascal

1	Program mass55;

Недоглядел. Спасибо.
Не могли бы посмотреть Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал там сомнения насчет правильности. выполнения.

	16.12.2013, 17:44

Опции темы