1024 байт за 1 символ
так как 256+256=512:0.5=1024
Интернет,люди,книги , телевизор, школа
Взять семя дерева-взять лопату-выкопать ямку-положить семя-закопать ямку-полить. Радоваться какой ты молодец :D
//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.