bekzod1092
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору попробовал сам решить задачу В матрице M(5,5) среди элементов побочной диагонали найти наи¬меньший элемент. вот что получилось Program matrisa; var A:array[1..5,1..5]of integer; min,i,j:integer; begin For i:=1 to 5 do For j=1 to 5 do readln (A[i,j]); For i:=1 to 5 do begin For i:=1 to 5 do Write (A[i,j]:5); Writeln; end; min:=A[5,3]; For i:=1 to 5 do For j:=1 to 5 do begin if (i=j)min<A[5,j]; A[5,j]:=A[5,j+1]; Writeln('min='min); end; end. Помогите пожалуйста,как будет правильно??это последняя работа,завтра нужно сдавать(( Ещё вот одна задачка, здесь уже вообще не понимаю что делатЬ(( В матрице A(6,6) найти произведение положительных элементов глав¬ной диагонали и сумму всех элементов побочной диагонали. (если не трудно дайте полное решение,заранее спасибо) | Всего записей: 12 | Зарегистр. 25-04-2011 | Отправлено: 22:01 26-05-2011 | Исправлено: bekzod1092, 22:12 26-05-2011 |
|