12.04.2011, 13:47 | #1 (permalink) |
Member
Регистрация: 24.01.2011
Сообщений: 12
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Проверить правильность решения – Паскаль.
Вот код, для второй матрицы по аналогии... Код HTML:
Cоnst n = 10; m = 15;
Type myMas = Array [ 1 .. n, 1 .. m ] of integer;
Var
a : myMas;
i, j : Integer;
sb, sr : integer;
begin
Randomize;
for i := 1 to n do
begin
for j := 1 to m do
begin
a[ i, j ] := random(100);
Write( a[ i, j ]:5 );
end;
WriteLn;
end;
WriteLn;
sb := 1;
sr := 1;
for i := 1 to n do
for j := 1 to m do
begin
if a[ i, j ] < a[ sr, sb ] then
begin
sr := i;
sb := j;
end;
end;
< вывод sr, sb, a[ sr, sb ] >
ReadLn;
end.
Заранее благодарю. |
12.04.2011, 13:47 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Займитесь прочтением похожих топиков Турбо Паскаль или Фри Паскаль. Задание по теме Типизированный файл Стек: правильность расстановки скобок трёх типов: круглых, квадратных и фигурных Паскаль: обсуждение вариантов решения задач Проверить наличие папки, Паскаль |
12.04.2011, 20:54 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
матрица, паскаль |
|
|