екатерина но
|
|
1 | |
Работа с массивами17.07.2011, 20:28. Показов 1194. Ответов 0
Метки нет (Все метки)
Работа с массивами. Дана действительная квадратная матрица порядка n.Вычислить сумму тех из ее элементов,расположенных на побочной диагонали и выше нее,которые превосходят по величине все элементы,расположенные ниже побочной диагонали.Е
сли на побочной диагонали и выше нее нет элементов с указанным свойством,то ответом должно служить сообщение об этом. Текст программы: Program sum; uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of real; n,i,j,k:integer; s,mx:real; begin clrscr; randomize; repeat write('Размер матрицы ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Матрица A:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=10*random; write(a[i,j]:5:2); end; writeln; end; writeln; mx:=a[2,n]; for i:=2 to n do for j:=n-i+2 to n do if a[i,j]>mx then mx:=a[i,j]; writeln('Максимальный элемент ниже побочной диагонали=',mx:0:2); s:=0; for i:=1 to n-1 do for j:=1 to n-i+1 do if a[i,j]>mx then begin k:=1; s:=s+a[i,j]; end; if k=0 then write('Выше побочной и на ней нет элементов больше ',mx:0:2) else write('Сумма элементов выше побочной и на ней и больших ',mx:0:2,'=',s:0:2); readln end. |
17.07.2011, 20:28 | |
Ответы с готовыми решениями:
0
Работа с массивами Работа с массивами. Перевод программы с C++ и Pascal на Basic Работа с массивами Работа с массивами |
17.07.2011, 20:28 | |
17.07.2011, 20:28 | |
Помогаю со студенческими работами здесь
1
Работа с массивами Работа с массивами Работа с массивами Работа с массивами Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |