Так?
зы.сы Если лишний текст не нужен - напиши. Или сам убери.
var a: array [1..5, 1..7] of integer;
i,j,max,min: integer;
begin
for i:=1 to 5 do
for j:=1 to 7 do
A[i,j]:=random(100);
max:=-1;
min:=101;
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]>max then max:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do
if A[i,j]<min then min:=A[i,j];
for i:=1 to 5 do
for j:=1 to 7 do begin
if A[i,j]=max then A[i,j]:=min
else if A[i,j]=min then A[i,j]:=max;
end;
writeln();
for i:=1 to 5 do begin
for j:=1 to 7 do
write(A[i,j]:5);
writeln();
end;
end.
1) 640 × 480 = 307200 пикселей в данном изображении
2) 3 байта = 24 бита - глубина кодирования одного пикселя
3) 307200 × 24 = 7372800 бит - информационный объем данного изображения
4) 7372800 бит / <span>1 024 000 бит/с = 7,2 секунды требуется модему, если скорость передачи будет <span>1 024 000 бит/с</span></span>
<span><span>Ответ: 7,2 секунды нужно модему</span></span>
7000 байтов )))))))))))))
Мне кажется б) потому что им надо узнать ответ. Задавая вопросы