Форум по Delphi программированию - Показать сообщение отдельно - Дана вещественная матрица А размером m x n

EvilRussian · #4 23.12.2010, 16:29

Код:

a: array [1..m] of array [1..n] of integer;
min,x,y: integer;

...

min:=1000;

For x:=1 to i do
begin
 For y:=1 to j do
  begin
   if a[x,y]<min then min:=a[x,y];
  end;
end;

For x:=1 to i do
begin
 For y:=1 to j do
  begin
   a[x,y]:=min
  end;
end;

Естественно я опустил часть с получением данных.
Оптимизация влияет на оценку?

UPD: СОРРИ, ОПОЗДАЛ.
Не понял сразу, щас подумаю.