Дана матрица А размера n на n. Ввести элементы матрицы,найти сумму элементов главной и побочной диагонали. Найти Минимальное и максимальное значения среди этих элементов. Вывести начальную матрицу и полученые результаты. Как будет выглядеть эта программа?
sheka
11.07.2011 4:41
Строк в 30-40 кода. Возможно у тебя будут пожелания начать писать эту программу?
Пашка
11.07.2011 13:21
Если не тяжело- пропишите пожалуйста
TarasBer
11.07.2011 13:34
Ты начни, мы продолжим.
TarasBer
11.07.2011 15:20
Ладно, вот, помогу немного. Тебе нужен робот с массивами, я так понял? Вот (с лесным массивом на заднем фоне):
Пашка
11.07.2011 15:45
Я прописал вот так:
uses crt; const nmax=20; var a,at:array[1..nmax,1..nmax] of integer; n,i,j,s,mn,mx:integer; 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]:=random(50); write(a[i,j]:4); end; writeln; end; writeln; mx:=a[1,1]; mn:=a[1,1]; s:=0; for i:=1 to n do begin s:=s+a[i,i]+a[i,n-i+1];{сумма на диагоналях} if a[i,i]>mx then mx:=a[i,i];{главная диагональ} if a[i,n-i+1]>mx then mx:=a[i,n-i+1];{побочная диагональ} if a[i,i]<mn then mn:=a[i,i]; if a[i,n-i+1]<mn then mn:=a[i,n-i+1]; end; if odd(n) then s:=s-a[n div 2+1,n div 2+1];{если матрица нечетная, центральный элемент посчитан 2 раза} writeln('Сумма диагональных элементов=',s); writeln('Минимальный из них=',mn); writeln('Максимальный из них=',mx); readln end.
Как задать элементы этой матрицы вручную? И еще, у меня почемуто неправильно считает сумму диагоналей, и и выводит не все значения макс., и мин.?
TarasBer
11.07.2011 16:00
Используй тег кода! А то админ не хочет прибить уничтожитель пробелов.
> Как задать элементы этой матрицы вручную?
for i:=1 to n do begin for j:=1 to n do begin write('enter a[',i,',',j,']:'); readln(a[i,j]); end; writeln; end;
Пашка
11.07.2011 16:28
Спасибо. А не знаете почему у меня неправильно считает сумму диагоналей, и выдает не все мак. И мин?
Добавлено через 5 мин. Спасибо. А не знаете почему у меня неправильно считает сумму диагоналей и мак. С мин?
sheka
11.07.2011 16:41
нажми "изменить сообщение" и код возьми в такой тег [ code=pas] [ /code] (в скобках без пробелов).
Добавлено через 7 мин. У меня все правильно считает.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.