Получше изложи задачу пожалуйста..
В смысле как? Все вещи делить на три части?
Тут что-то неполностью написано
//Pascal
var
A: array [1..10] of byte;
i, Min, MinID: byte;
begin
randomize;
Min := 100;
for i := 1 to 10 do
begin
A[i] := random(20) + 1;
if A[i] < Min then
begin
Min := A[i];
MinID := i;
end;
write(A[i], ' ');
end;
writeln;
writeln('Минимальный элемент A[',MinID,'] = ', Min);
readln;
end.
<span>m = 13;
n = 21;
n = 2*m-n = 2*13-21 = 26-21 = 5;
m< =n = 13 <= 5 = false </span>⇒<span> p = 4-m*n = 4-13*5 = -61
var n,m,p:integer;
begin
m:=13;
n:=21;
n:=2*m-n;
if m<=n then
p:=m+n
else
p:=4-m*n;
writeln(p);
end.
Результат:
-61</span>
640*350*1=224000 бит = 224000/8 байт = 28000 байт = 27,34375 килобайта
1 - т.к. 2 цвета можно закодировать всего 1 битом (0 или 1)
Английский, испанский,французкий