Сколько секунд потребуется обычному модему, сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640х480 пикселей, при условии, что цвет каждого пикселя кодируется тремя байтами?

Сложно оч ,сам решай,ты же не хочешь быть тупым?

За этим не сюда, такое просто не будут делать, есть куча форумов, где сидят ОНЛИ программисты, которые помогут. Всё, что тебе нужно - зарегистрироваться и подробно описать, что тебе нужно, только не в там настрое, типа, тебе все обязаны, если будешь вежливо общаться -  тебе помогут. Если нужны такие форумы - пиши в ЛС. Удачи!

1)
if min>a[i] then
min:=a[i];

2)
if a[i] mod 2 <> 0 then
kol:=kol+1;

3)
if a[i]>0 then
begin
sum:=sum+a[i];
kol:=kol+1;
end;
sum:=sum/kol
4)
if a[i]>5 then
a[i]:=sqr(a[i]);

5)
if a[i]<>4islo then
a[i]:=a[i]-(a[i]*2);