Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.
Во вложении
спрашивайте, что непонятно
123, 132, 213, 231, 321, 312,
723, 732, 273, 237, 327, 372,
173, 137, 713, 731, 371, 317
127, 172, 217, 271, 721, 712
итого 24 числа
Достоинства: точная передача цветовых переходов(2)
недостатки: масштабирование(3) Большой размер файла(1)