Program PRACT21; Uses CRT; Const max = 2; Var a: Array[1..max,1..max] of Real; i, j: Byte; min: Real; mi, mj: Byte; Rez: Real; Begin ClrScr; Randomize; Writeln('Получили матрицу'); For i := 1 to max do Begin For j := 1 to max do Begin a[i,j] := (Random * 10); Write(a[i,j]:5:2, ' '); End; Writeln; End; Writeln(#13#10,'Ищем минимальный элемент'); min := a[1,1]; For i := 1 to max do Begin For j := 1 to max do Begin If (a[i,j] < min) then Begin min := a[i,j]; mi := i; mj := j; End; End; End; Writeln(#13#10,'Минимальный: ',min:0:2,' a[',mi,';',mj,']'); Writeln(#13#10,'Получаем скалярное произведение'); For i := 1 to max do Begin Rez := Rez + a[mi,i] * a[i,mj]; End; Writeln(#13#10,'Скалярное произведение равно: ',Rez:0:3); ReadKey; End.
Источник:
Категория: Матрицы | Добавил: Seqular (20.10.2007)
| Автор: Дмитрий
Просмотров: 2924
| Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ]
