marina11
Новичок
|
   
помогите с программой
Дана матрица А(5,3)
1. Найти строку, содержащую минимальный элемент матрицы
2. Найденную строку поменять местами с 4-ой строкой.
|
Всего сообщений: 2 | Присоединился: декабрь 2010 | Отправлено: 1 дек. 2010 20:14 | IP
|
|
Sarben
Новичок
|
Вот попробуй...
ПРОВЕРЬ, вдруг есть ошибки, т.к. в программировании я ещё слаб 
var i,j,k:Integer; s:Real; a:array[0..5,1..3] of Real;
begin
Randomize; for i:=1 to 5 do for j:=1 to 3 do a[i,j]:=Random(100);
WriteLn(' Ishodnaja matriza:');
for i:=1 to 5 do begin for j:=1 to 3 do Write(a[i,j]:8:2); WriteLn end;
s:=a[1,1]; for i:=1 to 5 do for j:=1 to 3 do if s>=a[i,j] then
begin s:=a[i,j]; k:=i end;
a[0]:=a[4]; a[4]:=a[k]; a[k]:=a[0];
WriteLn;
ReadLn
end.
|
Всего сообщений: 7 | Присоединился: декабрь 2010 | Отправлено: 1 дек. 2010 20:38 | IP
|
|
Sarben
Новичок
|
Обязательно проверь
|
Всего сообщений: 7 | Присоединился: декабрь 2010 | Отправлено: 1 дек. 2010 20:40 | IP
|
|
paradise 
Долгожитель
|
 
2 Sarben
>>> a[0]:=a[4]; a[4]:=a[k]; a[k]:=a[0];
это что такое? Как минимум, пахнет разными размерностями.
|
Всего сообщений: 428 | Присоединился: ноябрь 2008 | Отправлено: 3 дек. 2010 16:17 | IP
|
|
|
Форум
программа для матрицы
